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AND THE BELLMAN 


“Just the place for а Snark!” the Bellman cried, 
As he landed his crew with care; 
Supporting each man on the top of the tide 
By a finger entwined in his hair. 


From The Hunting of the Snark by Lewis Carroll, originally published іп 1876 by 
Macmillan Publishing Co., Inc. 
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Еогеууога 


APL has earned such a reputation for disorderly conduct that ““struc- 
tured АРІ,” rings as off-key as *'immaculate pigsty" or "honest politi- 
cian." Yet we must not blame the language for the disorderly conduct 
of its users—or misusers. In the hands of responsible and properly edu- 
cated programmers, APL becomes a marvelously disciplined tool, a tool 
unlike any other programming language in common use. 

The problem, of course, lies in the phrase “properly educated." For 
too long, in too many places, АРІ, users have learned their language “іп 
the streets," as any examination of their programs would show. Their 
textbooks are little more than reference manuals, and offer no correc- 
tive to the worst effects of oral tradition. Users trained in the “tradi- 
tional" APL manner may be unaware of many useful APL features, 
misuse features they know, underuse features they believe they have 
mastered, waste mind-boggling amounts of time and space and energy, 
and generally fail to achieve the satisfaction that such a refined tool as 
APL can offer. 

Dennis Geller and Daniel Freedman, having watched hundreds of 
APLemmings follow one another to a fate worse than death, have 
decided to offer something different. What they offer is a sensible, 
well-considered, experience-based method of capturing APL's problem- 
solving power. Through a step-by-step development which all can fol- 
low—yet which is not offensive to the potential programming genius— 
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they show how APL can once more be the servant, and stop being the 
master. 

Structured Programming іп АРІ, represents precisely the mixture 
of theory and experience, excellence of presentation, and recognition 
of the human aspects of programming that we hope will characterize 
the Winthrop Computer Systems Series. To an increasing extent, our 
future society is being created by the people who design and build our 
computer system—in agriculture and airlines, in banking and building, 
in communications and colleges. What facet of life remains untouched 
by their creations? If their job is well done, human life can attain qual- 
ity beyond dreaming; if poorly done, human life can become an inferno. 
For these programmers, project leaders, analysts, and designers, the 
Winthrop Computer Systems Series will provide tools and techniques, 
emphasizing: 


1. Practicality, including the recognition that good theory is the 
most pragmatic of tools. 

2. Excellence of presentation—writing, organization, examples, and 
supplementary aids. 

3. The complex role of human beings, both as creators and as users 
of computer systems. 


Structured Programming in APL is a marvelous example of the com- 
bination of these three points of view. Indeed, because of the authors’ 
appreciation of the complex role of human beings as creators of com- 
puter systems, anyone using APL will find this book immensely prac- 
tical, Experience with this material in the authors’ courses for profes- 
sional and nonprofessional programmers has shown that their method 
works: 


1. Students reach a given point of competence much faster than 
under previous methods. 

2. Students progress beyond the limits of what was feasible under 
less disciplined approaches. 

8. The cost of instruction, both in machine time and instructor 
time, is lowered. 


I have witnessed the results this approach can yield, results which I 
believe are in the true spirit of APL. I myself learned APL at the feet 
of Ken Iverson in 1960, long before any implementation existed. At 
that time, we saw “Iverson notation” as one more tool to aid the think- 
ing of the professional programmer, never dreaming that it would attain 
the wide range of uses it enjoys today. We could never, at that time, 
imagine the kind of abuse that APL sometimes gets today, and even 
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now I cringe at some of the amateurish practices committed іп the 
name of “the spirit of APL." What Geller and Freedman have done is 
to combine the fun of APL with the more mature enjoyment of the 
trained mind focussing a sharp tool on a real problem. That is what we 
are trying to achieve in this Series, and that is what any concerned in- 
structor is trying to do in his/her life's work. 


Gerald M. Weinberg 


Series Editor 
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Preface 


This is an introductory book on programming and on the computer 
language, APL. We have developed and tested it in classes, at various 
levels, for three years: it is suitable for beginning programming students 
from junior college to graduate school, for in-house education in indus- 
try, or for self-study by experienced programmers who wish to learn 
APL. This book embodies an approach which is quite different from 
the other books now available. Our aim is to bring the student very 
early to the point of writing working programs: further details on our 
approach and how to use the book most effectively are presented in the 
following paragraphs. 

The book falls naturally into three sections of three chapters each. 
Тһе first section deals with the basic concepts of programming and of 
APL: we introduce structure charts for describing algorithms, and then 
examine the data structures and operators of APL. The chapters in the 
second section teach the student to write programs from algorithms 
which have been expressed as structure charts. The third section deals 
with the design and development of programs, and of systems of pro- 
grams. Also, sprinkled throughout the book, are Interludes which dis- 
cuss important mechanical aspects of APL: signing on, creating and 
saving workspaces, using APL as an aid to debugging. 

The book has been designed to be flexible, to be adaptable to the 
requirements of different teaching and learning situations. This flexibil- 
ity manifests itself in a number of ways. The Interludes are not closely 
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tied to the chapters they follow and may be taken up at any time. Since 
APL is often taught in half courses, or in combination with other lan- 
guages, the last three chapters are independent of each other; although 
they do present different material, if time is limited any one or two can 
be chosen to complete the course. Conversely, there would be little 
conflict if the instructor desired to present additional material on col- 
lateral topics, such as computer organization or analysis of algorithms. 

A Teacher's Manual is available as a companion to the book, con- 
taining suggestions for teaching from the text, and for additional mate- 
rial which might be presented. The Manual also contains a large number 
of classroom tested ‘‘visuals’—these can be detached and copied on 
transparencies for overhead projection. 


AN APPROACH TO APL 


The typical approach to teaching APL has focused on the versatility of 
the language while essentially ignoring programming concepts. Most of 
the written material on APL likewise concentrates оп APL's powerful 
operators, with discussion of programming virtually limited to the me- 
chanics of entering programs into the system. We know of a course in 
APL in which students were not required to write a single program! 

This book is based on quite a different approach, one to which we 
were led by our experience teaching APL and other languages. Students 
do not (and there is no reason why they should) have innate talents for 
designing algorithms; thus, most of their trouble comes not from learn- 
ing the language but from using it to write programs which do what 
they are supposed to do. 

The basis of programming is the design of correct algorithms: much 
of what this involves is language independent, and while APL may be a 
richer language than many others, using it effectively still involves pro- 
gramming. Thus, our approach is to emphasize programming in APL; 
this approach has been used by others, with equally satisfactory results 
(see: T. Plum and С. M. Weinberg, “Teaching structured programming 
attitudes, even in APL, by example,” SIGSCE Bulletin, February, 1974). 

Our approach to programming begins in Chapter 1. We introduce 
structure charts (developed by I. Nassi and B. Schneiderman, in “Flow- 
chart techniques for structured programming," SIGPLAN Notices, 
August, 1973) as a vehicle for expressing algorithms. Later, when stu- 
dents begin programming in APL they first learn to express their struc- 
ture charts as APL programs. 

Chapters 2 and 3 discuss the data structures and operators of APL. 
Our approach here, especially as regards the operators, capitalizes on 
the interactive nature of the language. We do not discuss each operator 
in detail: rather than teach the operators, we teach how to learn about 
the operators. Naturally, students need guidance when approaching any 
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programming language, but they also need to develop the confidence 
and skills to learn (and review) by themselves. Chapter 3 discusses a 
number of operators, but also presents general principles which provide 
а framework for learning about the others. This learning is encouraged 
by the exercises, in which students are led to find out about operators 
not covered in the text. 

Chapters 4 through 6 deal with the fundamentals of programming 
in APL. First, in Chapter 4, we present the concept of a program. Here, 
too, we cover the mechanics of entering and modifying programs. Chap- 
ter 5 introduces program structures for making choices, and Chapter 6 
presents the concept of looping. We rely heavily on a set of three small 
utility programs which are listed in Appendix Four. Two are used to 
help strengthen the correspondence between the structure chart and the 
APL program: they contribute significantly to the readability of the 
programs, and help the students differentiate between statements which 
"do" something and statements which alter the flow of control. The 
third utility program is equally simple, and is used by the programmer 
to stop program execution when certain conditions are detected. From 
the very first program, verifying the validity of the input and of certain 
internal conditions, and programming for soft failures when these errors 
are detected, are essential features of all our programs. These utility 
programs should be placed in a workspace and introduced to the stu- 
dents when called for by the text. 

Chapters 7, 8, and 9 build upon the basic skills presented thus far to 
illustrate the processes of program design and development. Each pre- 
sents essentially the same process of moving from a design to a working 
program, and then refining the program to meet additional constraints. 
The emphases are slightly different, though: Chapter 7 concentrates on 
the construction of a program package, while Chapters 8 and 9 go fur- 
ther in emphasizing additional features of design and development. The 
three chapters provide a gradual introduction to producing large systems 
of programs, but if time is limited any one can be used as an example 
of the process. 

The exercises are used to reinforce and extend the material presented 
in the chapters. They also present alternatives, either of approach or of 
detail. While such alternatives should probably not be emphasized too 
heavily in a first programming course, it is important that students get 
an early appreciation of the fact that there is more than one way to 
approach a problem, and that different approaches have different ad- 
vantages and drawbacks. 

The Interludes discuss the mechanical aspects: signing on, work- 
spaces, system commands, debugging. All of our programming was done 
in APL/360, and it would be unrealistic to expect this not to be reflected 
in the text. However, we have collected almost all of the system depen- 
dent material into the Interludes, and explain more than once that the 
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student may very likely be using a different system, with slightly dif- 
ference features. The experiential approach to learning helps here, en- 
couraging the student to actively discover those features which are 
different. 

Overall, our approach is to present the fundamentals of program- 
ming in APL. Students may go on from here to learn to write faster 
programs, or more compact programs, or more aesthetic programs: this, 
we hope, is where they will learn to write working programs. 
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Algorithms апа 
Structure Charts 


He had bought a large map representing the sea, 
Without the least vestige of land: 

And the crew were much pleased when they found it to be 
A map they could all understand. 


“What's the good of Mercator's North Poles and Equators, 
Tropics, Zones, and Meridian Lines?” 

So the Bellman would cry: and the crew would reply 
“They are merely conventional signs! 


"Other maps are such shapes, with their islands and capes! 
But we've got our brave Captain to thank” 

(So the crew would protest) "that he's bought us the best— 
A perfect and absolute blank!" 


algorithm 


Aigorithms and Structure Charts 


Тһеге is more to programming a digital computer than writing instruc- 
tions for it in one of the many arcane “computer languages,” such as 
АРЫ. To program a digital computer is to ask it to perform some task 
and, quite obviously, we should decide what we want the computer to 
do before we give it any instructions. 

However, it is not enough even to know what we want done! We 
must know how we want it done. If we want to have the computer print 
a large picture of Snoopy, for example, someone must first tell the 
computer which of the symbols in the picture goes where. This involves 
two distinct, but related, tasks. The programmer must first decide where 
each symbol goes and must then communicate this information to the 
computer. 

Before we begin our study of how to communicate with the com- 
puter, we will investigate the process of setting up a problem; we will, 
in fact, develop certain standard forms for expressing the solution to a 
problem, and later will see that these forms enable us to communicate 
our solution method to the computer, often with very little trouble. 
Unfortunately, despite our best efforts and those of our colleagues, 
there is no technique which will guarantee that we will have absolutely 
no trouble communicating with a computer. Computers are sometimes 
unreliable, and occasionally unstable, but most of all they are picky. 
They will do exactly what you tell them to do. Unfortunately, what 
you tell them and what you think you are telling them are often very 
different. Much of the job of getting a program written and running is 
like communicating with a grammarian in a language that you don't 
know very well. Eventually, you will phrase your request just so, and 
you'll be told where the toilet is. 


ALGORITHMS 
Our dictionary defines algorithm as: 


akgo-rithm л, in mathematics, any special method of solving a cer- 
tain kind of problem; specifically, the repetitive calcu- 
lations used in finding the greatest common divisor of 
two numbers (Euclid's Algorithm). 


These days it is common to define an algorithm more informally, as 
a recipe for doing some job. Algorithms are not at all constrained to 
mathematical problems. Any set of directions is an algorithm for getting 
from one place to another. When a teacher tells you, “You will have to 
write two 10 page papers and one 25 page paper, and score above 89 
percent on the final exam," that is an algorithm for passing the course. 
And as our informal definition suggests, a recipe for baking a loaf of 
bread is also an algorithm. 
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For example, consider the following recipe: 


Helen's Irish Cake (like a bread) 


3 cups flour 1 tbsp. shortening 
lor2eggs 1 to 1% cups milk 

4 tsp. baking powder 1 tsp. cinnamon 

1⁄4 tsp. salt 1 tsp. nutmeg 

caraway seeds, as desired 1⁄4 pkg. (approx.) raisins 


Beat all ingredients together, adding raisins last (add nuts if desired). 
Pour into greased loaf pan, and bake in slow, 325 degree oven about 
1 hour. 


Recipes, like knitting instructions, are sometimes written in a spe- 
cialized language, and simple words often contain a great deal of mean- 
ing. While “Беаф all ingredients together" may seem to be a fairly clear 
instruction, the novice cook may be unsure as to exactly what is meant 
by “1 to 1% cups milk." We can set this same recipe down in a step by 
step fashion, as it might be explained to a novice. 


Helen's Irish Cake (like a bread) 

1. Sift 3 cups of flour with 4 tsp. baking powder and 1 tsp. salt. 

2. Beat 1 or 2 eggs slightly with ! cup sugar and add to flour mix- 
ture. 

9. Add 1 tbsp. shortening and the spices (1 tsp. each of cinnamon 
and nutmeg). 

4. If one egg was used, add 1% cups milk; if 2 eggs were used, add 

1 сир milk. 

. Stir until fairly smooth. This is the batter. 

. Add caraway seeds and raisins and chopped nuts (optional). 

. Grease a loaf pan; pour batter into pan. 

. Bake in 325 degree oven. Test after 50 minutes by inserting a 
wooden pick into the middle. If it comes out clean, remove 
loaf from oven; if not, continue baking another 5-10 mins. 
until wooden pick comes out clean. 


9. Let cool on wire rack for 10 mins. before turning pan to in- 
verted position. 


10. Remove from pan when almost cool. 


очо с 


We didn't go through all this so that you could try the recipe (al- 
though you should!) but because even so simple a thing as a recipe 
exhibits the same properties and structure as more complicated algo- 
rithms. 

For example, а property which is basic to almost all algorithms is 
that it takes fewer steps to express a task than it does to execute it! In 
this example, which is rather simple as algorithms go, what we have 
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listed as step 5 actually may require many minutes of stirring. Also, it is 
very rare to find an algorithm that specifies every action to the minutest 
detail. Step 8 does not begin: 


Open oven door. Lift baking pan off counter with two hands. Place 
on middle rack of oven. Close oven door gently. Set timer for 50 
minutes. 


However, anyone who is going to make this cake had better know 
how to do all these things when it comes time to execute step 8. Algo- 
rithms are usually expressed іп steps “опе level lower” than the task 
they are designed for. If this recipe were being made out for someone 
who didn't know how to open the oven door, there would probably be 
a separate algorithm written up to explain that step in more detail. 
That way, the basic plan of the recipe would be clear, and the special- 
ized instructions would be accessible without cluttering things up. 

For another example of an algorithm, suppose that you have the job 
of instructing a rather simpleminded robot as to how to find the door 
in a room. The basic plan you wish to give it is: 


Walk straight to a wall and then walk along the wall until you get 
to a door. 


However, the robot, being sufficiently simpleminded, cannot act on in- 
structions phrased so loosely (in this, it is much like the computers we 
will be working with later). Thus, you might present it with an algo- 
rithm more like the following: 


1. Extend left hand straight ahead. 
2. Until your left hand touches the wall or door, do the following: 
take one step with the left foot; 
take one step with the right foot. 
3. If you are not yet touching the door, do the following: 
3.1. Tum your body so that the wall is to your left, and your 
hand is touching it. 
3.2. Until you reach the door, do the following: 
take one step with the left foot; 
take one step with the right foot. 
4. Use the other algorithm I gave you to open the door and go 
through it. 


EXERCISE 


1-1. What does “take one step” mean? Could it be interpreted differ- 
ently? Does it make a difference in the algorithm? 


structure 
chart 


process 
blocks 


Do 
block 
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Looking at this algorithm, we see some things in common with the pre- 
vious one. Each is ultimately made up of a set of simple instructions 
(‘pour the batter into a baking pan,” “extend left hand straight ahead”) 
and the simple instructions are grouped in a number of different ways. 
First of all, they are grouped physically on the page, one after another, 
Second, they are grouped chronologically, in the order they are to be 
performed. Third, they are grouped into certain conditional groups; for 
example, one group of statements is to be done continually until the 
left hand touches the wall, another group of statements is to be done 
only if the cake is not yet brown. 

Were it not for these conditional groupings the physical listing of 
the steps of an algorithm would be exactly the same as the order in 
which they are to be performed, and it would be very easy to look at 
the algorithm and decide what must be done. Because of the conditional 
groupings, the way that we have been displaying our algorithms—one 
step below the next—can become somewhat confusing, since it does not 
really show us the order in which steps are to be done and how they 
interrelate. This may not be a serious problem for these simple algo- 
rithms, but when we start doing more complex things we will want to 
be able to get as much information as possible in the shortest amount 
of time when we look at the algorithm. 

Thus, we are going to introduce a different method of writing the 
steps of an algorithm: a structure chart. As the name implies, this will 
show not only the simple steps of the algorithm, but also the way that 
they fit together. 

A structure chart is always in the shape of a large rectangle, and is 
built up of smaller rectangles called process blocks. The simplest process 
block is the one for a simple statement and might look like Figure 1.1. 
Process blocks fit on top of one another, as in Figure 1.2. So far, this is 
just like what we were doing before: we read down a stack of process 
blocks. The differences come with the process blocks for the conditional 
statements. The process block for the “do until” statement, called a DO 
block, looks like Figure 1.3. This is not merely a rectangle; instead, it is 
a large rectangle with a small rectangle cut out of it. The smal] rectangle 
will contain the statements that are to be done until the robot reaches 
the door, and the leg of the box shows its scope; that is, it shows graphi- 
cally which statements are the ones which are to be executed until the 
door is reached. Thus, the first two steps of our algorithm are expressed 
in Figure 1.4. What happens if the robot reaches the wall after stepping 
with its left foot? It might seem reasonable to say that as soon as it 
reaches the wall or door it will stop doing the statements in the scope 
of the DO block. While this would indeed be reasonable now, it would 
create many problems for us later on. We will thus adopt the opposite 
convention: If the condition in the DO block does not yet hold, all the 


Take опе step with 
the left foot 


FIGURE 1.1. A simple process block. 


ТаКе one step with the left foot 
Take one step with the right foot 


FIGURE 1.2. A stack of process blocks. 


DO until you reach the door 


FIGURE 1.3. A DO block. 


Extend left hand straight ahead 


DO until door or wall is reached 


Take one step with left foot 


Take one step with right foot 


FIGURE 1.4. Two steps of the robot algorithm, 


ІЕ-ТНЕМ 
block 
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statements within the scope are executed before the condition ischecked 
again. Unless we know that the walls in the room are strong, this may 
Yesult in the robot walking right through one of them. However, we will 
assume that they are sufficientiy strong. 

Тһе last process block that we will introduce now is the IF-THEN 
block. The IF-THEN block looks like Figure 1.5. The upper triangle 
gives a condition to be checked. If the condition is true, the statements 
in the column marked “yes” are done; if it is false, then those in the 
“по” column are executed. If we look at step 3 of the algorithm, which 
is reproduced in Figure 1.6, we see that it specifies what to do if the 
robot has not reached the door. But does it specify what to do it if has 
reached the door? Not really! The algorithm specifies what to do when 
the door is reached, but that is to be done whether or not the steps 3.1 
and 3.2 are executed first. To see the difference, consider the instruc- 
tions which you might give to the robot to make it break a vase and 
then sweep the pieces under the rug: 


1. If the vase is on the floor, pick it up and then drop it. Otherwise, 
push it off of whatever it is standing on. 
2. Sweep the pieces under the rug. 


In this case, there are explicit instructions for when the condition 
is true and also for when it is false, and then there is a step to be exe- 
cuted in either case. In the example above, there is no explicit instruc- 
tion if the robot is touching the door, only the implicit instruction, go 
on to the next step. For this implicit instruction we introduce a special 
form of the simple statement process block, shown in Figure 1.7. 


Are you touching 
the door 


? 


FIGURE 1.5. An IF-THEN process block. 


3. If you are not yet touching the door, do the following: 


3.1. Turn your body so that the wall is to your left, 
and your hand is touching it. 


3.2. Until you reach the door, do the following: 
take one step with the left foot; 
take one step with the right foot. 


FIGURE 1.6. The third step of the robot algorithm, 


FIGURE 1.7. The process block for “go to the next step.” 
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Step 3 can now be structure charted as shown in Figure 1.8. Notice that 
the block under the “по” column has been replaced with a whole struc- 
ture chart, containing a DO group. In general we will find this nesting 
of conditional expressions within other conditional expressions to be a 
common feature of algorithms. 

We can now stack together the structure charts for the different 
steps of our algorithm to produce the structure chart for the task: get 
to the door (see Figure 1.9). 

Of course, the algorithm for opening and getting through the door 
can also be expressed as a structure chart, and placed in the last box 
or given separately. In general, one structure chart shouldn't be too 
crowded, however, and since all structure charts are rectangular, it is 
preferable to make a separate chart for a complicated operation, such 
as opening and getting through the door, and then just refer to it as we 
have done here. 


EXERCISES 


1-2. Rewrite Figure 1.9 for the robot so that it will not. push through 
the wall. 

1-3. Write a structure chart which will tell the robot how to open the 
door and go through it. Remember that depending on which path 
the robot takes through the structure chart above, it may or may 
not be facing the door. 

1-4. Rewrite Figure 1.9 to take into account the fact that the robot 
may not be facing the wall containing the door when it starts out, 
so that it may have to turn corners. 

1-5. Assume that the robot will fall on its face if it takes two steps 
with the same foot and rewrite Figure 1.9 to prevent this from 
happening. 

1-6. Write the structure chart for Helen's Irish Cake. 

1-7. Write a structure chart for Chicken Almondine. 

1-8. Use the chart prepared in the previous exercise to make Chicken 
Almondine. 


TWO NUMERICAL ALGORITHMS 


It is а common misconception, obviously shared by our dictionary, that 
algorithms must have something to do with mathematics. While, as we 
have already seen, this is far from true, nevertheless many mathematical 
concepts are algorithmic in nature. Although we will not concentrate 
on mathematical problems in our study of programming, neither do we 
wish to completely ignore them. 


Are you touching the door 
2 


по уев 


Turn so that the wall is to your left 
and your hand is touching it 


DO until your hand touches 
the door 


Take one step with the 
left foot 


Take one step with the 
right foot 


FIGURE 1.8. Structure chart for step three of the robot algorithm. 


Extend the left hand straight ahead 


DO until your hand touches the door or the wall 


Take one step with the left foot 


Take one step with the right foot 


Are you touching the door 
? 


no yes 


Tum so that the wall is to your left 
and your hand is touching it 


DO until you are touching the door 


Take one step with the 
left foot 


Take one step with the 
right foot 


Use the algorithm for opening and getting through the door. 


FIGURE 1.9. Structure chart for the robot algorithm. 


comments 


Algorithms and Structure Charts 


Suppose that we are given two cups, one which can hold five ounces 
and one which can hold seven ounces, which have no markings on them, 
The task is to get exactly one ounce of water from a nearby stream. 

One way to solve the problem is given in Figure 1.10. If we examine 
the procedure there carefully, we see that the seven ounce jar is filled 
three times and the five ounce jar is filled four times. Since (3 X 7) — 
(4 X 5) = 1, after filling the five ounce jar from the seven ounce jar in 
this way we are left with exactly one ounce in the seven ounce jar. 

The new symbol which appears in Figure 1.10 is a comment symbol, 
and the process box which contains it is a comment box. Comment 
boxes are used to make structure charts more readable by providing 
some information about what the algorithm is supposed to be doing; 
nothing is ever done as a result of a comment box. 

Notice that while Figure 1.10 is perfectly correct, it is not very gen- 
eral. № would do us no good if, instead, we had a six ounce jar and a 
seven ounce jar and wanted to get exactly four ounces of water. How- 
ever, the procedure which we used to generate this algorithm is some- 
what more general. It suggests that we look for two numbers A and B 
such that (7 X A) — (6 X B) - 4. One set of values is А = 4, B = 4, since 


Fill the 7 ounce cup, and then fill the 5 ounce cup from it. 


Empty the 5 ounce cup, and then pour the rest of the water 
from the 7 ounce cup into it. 


There are now: 
2 ounces in the 5 ounce cup 


0 ounces in the 7 ounce cup 


Fill the 7 ounce cup, and then fill the 5 ounce cup from it. 


Empty the 5 ounce cup, and then pour the rest of the water 
from the 7 ounce cup into it. 


There are now: 
4 ounces in the 5 ounce cup 


0 ounces in the 7 ounce cup 


Fill the 7 ounce cup, and then fill the 5 ounce cup from it. 


Empty the 5 ounce cup, and then fill it from the 7 ounce cup. 


(9) 


There are now: 
5 ounces in the 5 ounce cup 
1 ounce in the 7 ounce cup 


SO we are done. 


FIGURE 1.10. Measuring one ounce with five and seven ounce cups. 
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(7 x 4) — (6 X 4) = 4. Figure 1.11 shows an algorithm for getting four 
ounces of water based on this equation. 

It is not too hard to verify that this technique works for any similar 
situation: if we have one cup which holds X ounces and one cup which 
holds Y ounces, and we want to end up with Z ounces, then we need 
only find integers A and B such that the equation (AXX)—(BXY)- 
Z is true. From this, we can start filling one cup from the stream, and 
then filling the second cup from the first; when we have filled the first 
cup exactly А times and the second exactly B times we will have the 
number of ounces (Z) that we want. 

There are some hidden assumptions in this technique. First of all, Z 
cannot be too large for one of the cups to hold; i.e., unless we have 
another cup, we can never measure out 50 ounces from a ten ounce cup 
and a five ounce cup, even though we can write such an equation. We 
are also assuming that the two cups hold integer amounts of water. 


Fill the 7 ounce сир, and then fill the 6 ounce cup from it. 


Empty the 6 ounce cup, and then pour the rest of the water 
from the 7 ounce cup into it. 


There are now: 


1 ounce in the 6 ounce cup 


0 ounces іп the 7 ounce cup 


Fill the 7 ounce cup, and then fill the 6 ounce cup from it. 


Empty the 6 ounce cup, and then pour the rest of the water 
from the 7 ounce cup into it. 


There are now: 


2 ounces in the 6 ounce cup 


0 ounces in the 7 ounce cup 


Fill the 7 ounce cup, and then fill the 6 ounce cup from it. 


Empty the 6 ounce cup, and then pour the rest of the water 
from the 7 ounce cup into it. 


There are now: 
fe) 3 ounces in the 6 ounce cup 


0 ounces in the 7 ounce cup 


Fill the 7 ounce cup, and then fill the 6 ounce cup from it. 


There are now: 
fe) 6 ounces in the 6 ounce cup 
4 ounces in the 7 ounce cup 


50 we are done. 


FIGURE 1.11. Measuring four ounces with six and seven ounce cups, 
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On the other hand, there is one thing which we are not assuming. 
It is not necessary that we fill the smaller cup from the larger. For 
example, Figure 1.12 shows another way to measure four ounces with 
six and seven ounce cups, this time based on the equation (6 X 3) — 
(1 X 2) = 4. 

The difference between Figures 1.11 and 1.12 is a good illustration 
of the fact that a little more analysis can simplify any problem. Accept- 
ing this maxim, we should analyze our general problem a little more 
before we try to produce a general algorithm. 

We might ask a slightly different question: what is the smallest. 
amount that we can measure with two given cups? Of course, we can 
always measure zero ounces, but can we always measure one ounce? 
Consider a two ounce cup and a six ounce cup. We can fill the six ounce 
cup, and then fill the two ounce cup from it, leaving four ounces in the 
six ounce cup. If we empty the two ounce cup and then fill it again, we 
can have two ounces in the six ounce cup. It is easy to see that we can 
never end up with one ounce or three ounces or five ounces. In terms 
of our equation, this is because of the fact that, for any choice of inte- 
gers А and B, (6 X A) — (2 X B) is always an even number. 

Delving a little deeper we should ask, Why is this always an even 
number? Clearly, it is always even because both six and two are even. 
This suggests a hypothesis: if the number of ounces that each cup can 
hold is divisible by two, then so is the smallest (nonzero) amount that 
they can measure. That this hypothesis is true can be proved mathe- 
matically or verified easily by trying a number of cases. 

Suppose, however, that we had cups which could hold six and fif- 
teen ounces, respectively. Since both numbers are not even, the previous 
analysis gives us no information, so we must experiment. If we fill the 
fifteen ounce cup, and then fill the six ounce cup from it, we are left 
with nine ounces in the larger cup. If we fill the six ounce cup again, we 
are left with three ounces in the fifteen ounce cup. Thus, we can meas- 
ure three, six, nine or fifteen ounces; we can, of course, also measure 
twelve ounces by filling the fifteen ounce cup twice from the six ounce 
cup. 
Again, it is easy to see that these are the only amounts which we 
can measure, so we are led to a second hypothesis: if the number of 
ounces that each cup can hold is divisible by three, then so is the small- 
est amount that they can measure. 

It may be obvious where this is leading: if there is some integer N 
which is a divisor of the number of ounces that each cup can hold, then 
N must be a divisor of the smallest amount that they can measure. 
While this is useful, it does not really answer our question; it tells us a 
property of the smallest amount which two cups can measure, but it 
doesn't tell what that amount is. 


Fill the 6 ounce cup, and then empty it into the 7 ounce cup. 


Fill the 6 ounce cup, and then fill the 7 ounce cup from it. 


There are now: 


(e) 5 ounces in the 6 ounce cup 
7 ounces in the 7 ounce cup 


Empty the 7 ounce cup, and then pour the water from the 
6 ounce cup into it. 


Fill the 6 ounce cup, and then fill the 7 ounce cup from it. 


There are now: 
(e) 4 ounces in the 6 ounce cup 
7 ounces in the 7 ounce cup 


So we are done. 


FIGURE 1.12. Another way to measure four ounces. 
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We only have to go a little further to settle the problem. There are 
usually many numbers which will divide both of the numbers represent- 
ing the cup capacities. For example, the number one divides any integer. 
But as we have seen, this does not mean that we can always measure 
one ounce. Suppose that we have a six ounce cup and a twelve ounce 
cup: each of one, two, three and six divides both six and twelve, How- 
ever, it is surely obvious that with these two cups we can only measure 
six or twelve ounces. 

In every example that we have looked at, the smallest amount that, 
we could measure was the largest of the numbers which could divide 
both cup capacities. This is the general rule that we have been looking 
for! We have not, of course, proved this; the proof, though simple, is 
outside the scope of this book. 

Now we have an exact description of the smallest number of ounces 
which can be measured with two cups, one holding X ounces and one 
holding Y ounces: it is the largest number which is a divisor of both X 
and Y. What we now need is an algorithm to find this number. 

One algorithm to do this is shown in Figure 1.13. It starts with the 
smaller of the cup capacities and asks if it is a divisor of the larger. If it 
is, then this must be the number we want. (An example of this case is 
the situation where we have a six ounce cup and a twelve ounce cup.) 

Otherwise, we take this number, called Z in the algorithm, subtract 
one from it, and try to see if it divides both X and Y. If it does we are 
done; otherwise we repeat this step. (An example here might be a six 
ounce cup and a fifteen ounce cup. We would start with Z = 6, and stop 
when Z = 3.) Eventually, if we do not stop beforehand, we will end up 
with Z = 1, in which case the smallest amount which can be measured 
is one ounce. (Here, a six ounce cup and a seven ounce cup are an 
example.) 

This is a rather surprising structure chart. It looks like all we are do- 
ing is repeatedly subtracting one from Z. We are also performing many 
divisions, but there is no need to show algorithms for division since it is 
such a basic and familiar operation. 

Notice one important feature of this algorithm which is not shared 
by the algorithm for the robot given in Figure 1.9. This algorithm has 
to stop! If the robot tried to follow the algorithm we wrote and was 
inside a room with an open door, it might just walk out through the 
door, out on to the street and then off into the distance, until it wore 
out. In Figure 1.13, on the other hand, we have an algorithm which 
must stop. If no number larger than one is a common divisor of X and 
Y, then the algorithm will stop with Z = 1. In fact, the first part of the 
“until condition,” Z = 1, is actually redundant—since one is a divisor of 
every number, the second part of the condition alone is sufficient to 
ensure that the algorithm stops. However, including this redundancy is 
a good reminder of what is happening. 


Let Z be the minimum of X апа Y 


DO until Z=1 OR Z divides both X and Y evenly 


Subtract 1 from Z 


FIGURE 1.13. Finding the greatest common divisor of X and Y. 
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Just writing a structure chart does not ensure its correctness. To be 
even reasonably sure that your algorithm really expresses what you in- 
tend it to, you should at least try it out for a number of different cases. 
For example, if we take X = 6 and Y = 8, Z starts out at six, which does 
not divide eight evenly, so it becomes five, and then four, then three 
and eventually two. One test case does not prove the algorithm, how- 
ever. We should not choose our other test cases at random; each test 
case should be chosen to expose some possible flaw. Here we would 
probably want to test some of the more extreme cases, such as when 
X = Y, or when X = 1, or when the greatest common divisor of X and Y 
is one. 

Although the algorithm works, it is rather inefficient. To find the 
greatest common divisor of 657 and 963, for example, we have to run 
through the algorithm 649 times, which means doing 1298 divisions. 

In fact, the algorithm of Figure 1.13 is so slow that we should really 
consider doing more analysis. You may recall that for any integers X 
and Y we can always write the expression 


X=(QXY)+R 


where Q is the quotient when X is divided by Y and R is the remainder: 
OcR«Y. 

Now, consider the fact that if Z divides both X and Y it must also 
divide R; this is essentially the same principle we stated earlier. Further- 
more, if Z divides both Y and R, it must also divide X. Thus, once we 
find the remainder R we can then look for a number which divides both 
Y and R, ignoring X. As R cannot be larger than X, we will be dealing 
with smaller numbers; this modification will therefore yield a more 
efficient algorithm. 

As an example, take the case X 7 18 and Y - 12. If we divide eight- 
een by twelve the remainder is six, so we need only apply the algorithm 
in Figure 1.13 to the case X = 12 and Y = 6. Better yet, we can apply 
this simplification to the case X = 12 and Y = 6. When we divide twelve 
by six the remainder is zero; since six divides both six and twelve, it 
also divides both twelve and eighteen; thus, six is the number which we 
sought. 

An algorithm incorporating this new idea is shown in Figure 1.14. 
For another example of how it works, take X - 963 and Y - 657: 


X-963 Ү-657 R-306 
Х=657 Ү=306 R-45 
Х-806 Ү-45 R 

X=45 Y=36 R=9 
X-36 Y-9 R-0 


FP ene 


(9 This algorithm finds the greatest common divisor of X and Y. 


DO until R, the remainder of X + Y, is 0. 


Replace the value of X by Y 


Replace the value of Y by R 


(9) When the algorithm is done, the value of Y is the greatest 
common divisor. 


FIGURE 1.14. A faster algorithm for finding the greatest common divisor. 
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We arrive at the result that the greatest common divisor of 963 and 
657 is nine after only five divisions, as compared with the 1298 required 
by Figure 1.13. 

The analysis which we have done was first performed 2000 years 
ago: Figure 1.14 is known as Euclid's Algorithm and is the very exam- 
ple which our dictionary gave to illustrate the definition of algorithm. 


EXERCISES 


1-9. Find a faster procedure for arriving at one ounce of water with a 
five ounce cup and a seven ounce cup based on the fact (5 X 3) — 
(7Х2)-1. 

1-10. Verify that Figure 1.14 gives the same result for X = 657, Y = 963. 

1-11. Does the algorithm work if X or Y is zero? 

1-12. One unfortunate feature of the algorithm is that as we proceed 
through it we lose the original values of X and Y. Fix up the 
structure chart so that the values of the variables X and Y do not 
change and the value of the greatest common divisor when the 
algorithm is over is held in a variable called G. 

1-13. What is the smallest positive number of ounces which can be 
achieved with each of the following pairs of cups: 

4 oz. and 1 oz. 

11 oz. and 9 oz. 

12 oz. and 4 oz. 

12 oz. and 6 oz. 

12 oz. and 10 oz. 

. 963 oz. and 654 oz. 

1-14. Find the greatest common divisor of each pair: 

4 and 1 

11and 9 

12 and 4 

12 апа 6 
e. 12and 10 

1-15. An integer is called prime if the only smaller number which 
divides it evenly is one. Draw the structure chart for an algo- 
rithm which, given the number N, terminates with the value of 
a variable Z being the Nth prime number. 

1-16. If you are currently attending school, what would be involved in 
writing the structure chart which describes your school's registra- 
tion process? 

1-17. Write a structure chart which gives the algorithm for a change- 
making machine which breaks a quarter to two dimes and a nick- 
el, a dime to two nickels, and two nickels to a dime. 


me eo =, 


anos 


1-18. 


1-19. 


1-20. 
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A real change machine does not have an infinite reservoir of 
money. Modify the previous exercise by assuming that the ma- 
chine starts out with five of each kind of coin and returns the 
customer's money if it can't make the proper change. 

Modify the preceding structure chart by letting the machine keep 
the customer's money if it can't make the proper change. 

While we found the smallest number of ounces which we can 
measure with two given cups, we have still not found a way to 
achieve it. Try to find an algorithm which, given cups holding X 
and Y ounces respectively, first uses Euclid's Algorithm to find 
the greatest common divisor G of X and Y, and then produces 
numbers A and B such that (A X X) — (B X Y) = G. (Note: This 
technique can be found in the book Mathematics: The Man-Made 
Universe by Sherman Stein [San Francisco: W. H. Freeman and 
Co., 1964], on page 67.) 
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Тһе Nouns of APL — 
Data Structures 


“You may charge me with murder—or want of ѕепѕе-- 
(We are all of us weak at times): 

But the slightest approach to a false pretence 
Was never among my crimes! 


“I said it in Hebrew—l said it in Dutch— 
| said it in German and Greek: 

But | wholly forgot (and it vexes me much) 
That English is what you speak!” 


Tower 
High School 
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APL is a language. Anything that is said in a language is about some- 
thing, and before we can properly begin to learn the APL language we 
have to understand something about the objects that the language can 
discuss. Among the things which can be discussed in APL are numbers 
and letters. 

Of course, we tend to discuss numbers and letters somewhat differ- 
ently. We can’t, for example, ask, “What is the result of dividing the 
letter ‘F’ by the letter “09” A question which we might ask about letters 
is, “Нож many times does the letter ‘i’ follow the letter “е” in the sen- 
tence: 


‘I believe that I can conceive that your neighbor might require relief 
from their deities.’ " 


Unlike numbers, letters have no intrinsic value or meaning as far as APL 
is concerned—they are just symbols. In the comic strip Peanuts one of 
the characters is named 555 95472; everyone calls him “5” for short. 
Clearly this is not a number which is meant to be added to other num- 
bers. It is just a string of characters, all of which happen to come from 
the characters ‘1’, ‘2, ‘3’, ‘4’, ‘5’, *6', ‘7’, ‘8’, ‘9’, ‘0’. We tend to think 
of such a string as a number, but it has no more numeric value than the 
letters in a license plate have meaning. We could just as easily have asked 
the question, “How many times does the character ‘5’ follow the char- 
acter ‘3’ in: 


‘5 6385393 1298 5 872 0863583 7780 9121 83509782 75862 
6390573 739537 8962 49356 4358532’?” 


and gotten the same answer. There was no numeric meaning to those 
numeric characters. 


NAMES AND EXPRESSIONS 


If we wish to communicate a numeric character to APL we put it in 
quote marks, as 


p 


APL will understand that this is the character for five and that it has no 
numeric value, Notice that APL uses a single quote mark, or apostrophe, 
rather than the double quote marks normally used in English writing. 
Despite this, the concept is similar. If Reginald said “two plus two is 
five,” then we use the quotation marks to indicate that what is between 
them is to be taken as is. When we write ‘5’ it indicates in the same way 
that what is between the quote marks is not to be evaluated. 
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In APL we can use quote marks around alphabetic characters as well. 
We can thus write 


“А? 


{о indicate (һе character A. If we write А without the quotes it may or 
may not have meaning. Without the quote marks characters and words 
are used in APL as names. 

Not every word is a name, however. À word becomes a name when 
we write a sentence which tells what it names. An example of such a 
sentence is given in Figure 2.1. 

This sentence сап be read “TWO is assigned by zero,” or as "zero is 
assigned to TWO." Do not read it as “TWO equals zero," a phraseology 
which is likely to be confusing. We need not fix the value of TWO at 
zero for all time; we can write the sentence in Figure 2.2 at some later 
time, and change the value of TWO. It should be clear from this exam- 
ple that no matter what a name may seem to mean in English, that 
meaning need have nothing to do with its meaning in APL, but there is 
no virtue in using intentionally confusing names either. 

Another example of assignment is given in Figure 2.3. There, the 
value ‘Y’ is being assigned to the name INITIAL. 

When we write a name, it is as if we had written the current value 
of that name. Suppose that we make the assignment shown in Figure 
2.44. Then the three assignments in Figure 2.4B each have the same 
effect—assigning the value 10 to the name SUM. 

We can see that names behave just like variables in mathematics, so 
we will call them variables from now on. 

We know that we can change the value of a variable. In fact, we can 
even change the type of thing that a variable represents. Figure 2.4C 
shows this by repeating the previous assignments of the variable TWO, 
and then assigning to TWO the value *X'. When we assign a value to a 
variable it makes no difference what the previous value was. 

We can not, however, mix numbers and characters when we do 
arithmetic operations. Consider the assignments shown in Figure 2.4D. 
We can add SALARY to BALANCE, and get the result 5. We can not 
add IDENTIFICATION to BALANCE; IDENTIFICATION names a 
character, not a number, 

We have seen that we can combine valables using the arithmetic 
operator * (if it makes sense to add their values). 

Using the various APL operators, we can continue to build more 
and more complicated expressions. We will learn more about these 
operators later in the book. For now, we will just use the simple arith- 
metic operators * (plus), — (minus) and X (times) to illustrate the rules 
for finding the values of expressions. Since we will be looking at arith- 
metic operations, we will only be dealing with numbers for the moment. 


TWO < 0 


FIGURE 2.1. Assigning a value to the name TWO. 


TWO + 17.5 


FIGURE 2.2. Assigning another value to TWO. 


INITIAL  'Y' 


FIGURE 2.3. A character-valued assignment. 


А) 
TALLY + 5 
B) 
SUM + 5+5 
SUM < 5+TALLY 
SUM + TALLY+TALLY 
С) 
TWO + 0 
TWO + 17.5 
TWO < 'X' 
D) 


BALANCE < O 
IDENTIFICATION < "5! 
SALARY < 5 


FIGURE 2.4. Examples of assignmen|s. 
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Don’t be misled into believing that APL is just for working with num- 
bers; later we will find out that APL has many powerful operators for 
dealing with characters. 

Although you may not realize it, you were taught certain rules for 
dealing with arithmetic expressions. One of the rules tells you that the 
value of 10 — 2 X 4 is 2 and not 32. That is, the expression means 
10 — (2 X 4) and not (10 — 2) X 4, Sometimes the rules are unclear, as 
in the case 8 — 8 — 8. Here we would always use parentheses, to distin- 
guish between 8 — (8 — 8) and (8 — 8) — 8. The familiar rules tell you 
that in the absence of parentheses multiplication and division are “more 
important" than addition and subtraction and should be done first. 
When there are only a few operations, it is simple to establish such rules 
of precedence. Іп АРІ, this would be a serious problem as there are 
many, many operators and if we had to learn different rules of preced- 
ence for evaluating expressions we would probably never get done 
memorizing. 

Instead, the designers of APL decided to use a rule different from 
the one we are used to. This way, instead of learning many new rules 
to fit with the ones we already know, we have only to learn a single rule 
which takes care of everything. This single rule is the right-to-left rule, 
and it says just about what its name implies: /n the absence of paren- 
theses, expressions are evaluated from the right to the left. 

Some examples of the way that the rule operates are given in Figure 
2.5. Each part of the figure shows an expression and its value, and then 
shows how that expression is evaluated according to the right-to-left 
rule. Thus, in Figure 2.5A, the rightmost part of the expression is 
picked off and evaluated, and then the value is effectively substituted 
back into the place of this part of the expression. You may wish to 
read this figure in conjunction with Figure 2.6, which is an algorithm 
for part of the right-to-left rule. 

Parts A, B, and C of the figure are evaluated in a strict right-to-left 
manner. Part D, however, includes a parenthesized subexpression. When 
parentheses appear in an expression, the part which lies between them 
is evaluated first, still using the right-to-left rule. 

In Figure 2.5E a new symbol appears. APL makes a distinction be- 
tween the subtraction sign and the unary minus sign; the latter is used 
to indicate that a number is negative and is a part of the number in the 
same way that a decimal point is part of a number. You can not do 
operations with this symbol: it makes no sense to write B or 273. 

Part F of Figure 2.5 shows that we can do assignments within ex- 
pressions. The expression in parenthesis results in a value being given to 
the variable SIZE. 


EXERESSION 


A) 
8x5-3 


B) 
6х8-3 


€) 
5-8-3-2-1 


2) 
5-%-(3-2)-1 


Е) 
4-31 


P) 
9%(5125%%)-8 


yakua РАЕТ ОР EXPRESSION VALUE QE PARI 
16 

5 2 

8x2 16 
30 

8-3 5 

6x5 30 
3 

2-1 1 

3-1 2 

4-2 2 

5-2 3 
1 

(3-2) 1 

1-1 ° 

%-0 4 

5-4 1 
710 

зн 14 

4-1% 710 
5 

(SIZE+u) 

SIZB-8 

9474 5 


FIGURE 2.5. Examples of the right-to-left rule, 


D 


This is an algorithm for a skeletal version of the right-to-left 
rule. Input to this algorithm is a legal arithmetic expression 
containing only numbers and the operations +, -, and X. 


DO until the expression is a single number 


| Find the last three elements of the expression 


They should be a number, an operation and a 
number 


Perform the indicated operation to get a value 


Replace the last three elements by the value 


When the algorithm is done, the expression has been replaced 
by its value 


FIGURE 2.6. An 


algorithm for part of the right-to-left rule. 
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EXERCISES 


2-1. Try to improve the structure chart in Figure 2.6. Pick some fea- 
ture which it does not have, such as the ability to evaluate ex- 
pressions with parentheses or the ability to recognize errors in 
expressions, and try to add that feature. 

2-2. Write a structure chart similar to Figure 2.6 for the algorithm 
which evaluates expressions involving only *, — and X according 
to the “usual” rules. 

2-8. For each expression or sequence of expressions shown in Figure 
2.7, explain why the indicated value is correct. 


SCALARS AND VECTORS 


Numbers and characters rarely exist in isolation. They are usually 
grouped in some way: a list of social security numbers, or a table of 
courses and grades, or the order that the horses ran in the fourth race 
at Hialeah. Perhaps the one most important feature of APL is the ease 
with which it lets us group data and use it. Here we will briefly touch 
upon the different ways that we can group data; in Chapter 3 we will 
see how we can use these groupings. 

The simplest way to group data is to list it. An English sentence, 
such as “the horse is blue,” is a list of letters of the alphabet plus the 
special character blank (the spaces between the letters). (Of course, as 
an English sentence, it is more than that since its component parts have 
meanings.) We can create a list of characters in APL by simply writing 
it down, as in Figure 2.8A. 

This assignment statement makes the variable FABLE a list, or string; 
or vector of characters. Since it has 17 characters (the quote marks are 
not part of the vector, although the bianks are) we say that it has 
length or size 17. In APL we use the Greek letter rho (pronounced 
*'row") to stand for the size of a vector. 

Figure 2.8B shows what the symbol rho looks like. When we apply 
the operator rho to a vector the result is a number which we can use 
just like any other number; Figure 2.8C gives some examples of expres- 
sions involving rho. 

The vector FABLE has 17 elements and APL lets us refer to each of 
them by a name: the fifth character, “Н”, is named FABLE[5] (read 
“FABLE sub five"), and the sixteenth is FABLE[16], ‘U’. Five and 16 
are subscripts; they are the indices of ‘H’ and ‘U’, respectively, and the 
operation of naming elements of a vector is called indexing. We can use 
these names just like variables: in Figure 2.8D we give the fourteenth 
element of FABLE a new value, which changes the value of FABLE to 


THE HORSE IS GLUE 


A) 


5-3x8-1 VALUE IS 716 
B) 

COST < 3x8 

5 - COST - 1 VALUE 15 "i8 
су 

(1+2)x(2-3)+(3+5) VALUE IS 18 
2) 

(3-3-(3-3-3)-3-3)-3 VALUE IS 0 
E) 

0-5-3хВЕТх8-БЕТеі VALUE IS 16 
Р) 

(WET+5)+(3*(NET+1)-(NE7+2)) 

VALUE 18 8 

6) 

TINMER*+1 

TIMER+2xTIMER 

TIMER+3*TIMER 

TIMER+(2xTIMER)+(2xTIMER) 

ТІМЕЕ-ТІМЕН«39141 VALUE IS 120 


FIGURE 2.7. Exercises on the right-to-left rule, 


А) 
FABLE + 'THE HORSE IS BLUE' 
В) 
° 
e) 
EXPREGSIQU YALUE 
oFABLE 17 
3. 5+pPABLE 20.5 
2xpFABLE за 
D) 
РАВІЕ[19] + 'G' 
E) 
A*'THE* 
В+' HORSE" 
Ce IS! 
De GLUE* 
Р) 
EXPRESSIQN Laue 
A,B,C,D TREHORSEISGLUE 
€) 
SPO tt 
8) 
ЕКГЕЕС510Е YALUE 
А.5РС.В,5РС,С,5РС,0 THE HORSE IS GLUE 
"ІТ",8РС,С,! BLUE' IT IS BLUE 


FIGURE 2.8. Some examples with character vectors. 
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We can also combine vectors to create other vectors. Consider the 
assignments in Figure 2.8E. We can string the separate parts together 
using the operation of concatenation, which is represented by a comma. 
Part F of the figure shows what happens when we concatenate the vari- 
ables from part E. The resulting value is probably not what we intended, 
since there are no spaces in it. However we can assign to some variable 
the character blank, as in Figure 2.8G. Using this, we can concatenate 
the vectors of part E together so as to get the desired result, as the first 
example of part H shows, 

There is no reason to treat the blank any differently from any other 
character. It can be included іп any character vector, as indicated in the 
second example in Figure 2.8H. 

Just as we can have vectors of characters, we can have vectors of 
numbers. For example, the daily balance of a checking account in the 
first seven days of a month might be kept in a variable called BALANCE 
(see Figure 2.9A). 

On the first day the balance was BALANCE[1], or 500.23, while 
by the seventh it had dropped to an overdraft of $23. If on the eighth 
day a deposit of $800 is made, the new vector (now having size 8) will 
be created by the expression given in Figure 2.9B. That is, we concate- 
nate the deposit plus the last balance to obtain the updated history of 
balances. 

While we are permitted to have vectors of numbers or vectors of 
characters, it is not possible to have a vector in which numbers and 
characters are mixed. Figure 2.10 shows some valid and invalid exam- 
ples of concatenations. 

One other complication should be mentioned here. Usually single 
numbers and characters are not vectors, but scalars, They are not vec- 
tors of length 1—they have no length. To make matters worse, however, 
there are such things as vectors of length 1. We can distinguish between 
them by writing ,6 for the vector of length 1 whose first (апа only) 
element is 6. Usually we will see no difference between the scalar and 
the vector; 5 + 6 and 5 + ,6 have the same value, although the second 
one is a vector. You can expect this to be troublesome on occasion. 


A) 
BALANCE + 500.23 445,36 223.87 132.66 101.03 54.20 723.00 


8) 
BALANCE + BALANCE,(800+BALANCEL7j) 


FIGURE 2.9. Modifying a numeric vector. 


EXPRESSION 215015510 
"АВС" ,'123' VALID CONCATENATION ОР 

CHARACTER STRINGS 
"АВС" ‚123 INVALID ATTEMPT TO CONCATEWATE 

NUMBER 123 ONTO CHARACTER STRING 
(123),0 5) VALID CONCATENATION ОР WUMERIC VECTORS 
(102 3), '9 5 6" INVALID АТТЕМРТ TO CONCATENATE 


CHARACTER STRING ONTO NUMERIC VECTOR 


54,5%" , THREE! ,'z8" VALID CONCATENATION OF CHARACTERS 


INVALID MIXTURE OF NUMBERS 
AND CHARACTERS 


FIGURE 2.10. Valid and invalid concatenations. 
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EXERCISES 


2-4, Explain why each expression in Figure 2.11A has the indicated 
value. 

2-5. We can use a vector as an index of another vector. For example if 
we write 'ABCDE'[4 1 4] we are saying, “First take the fourth 
element of ‘ABCDE’, then the first and then the fourth.” The re- 
sult is therefore the vector ‘DAD’. Explain why each expression in 
Figure 2.11B has the indicated value. 


ARRAYS 


In APL you are not limited to vectors. Numbers and characters can also 
be grouped into tables, or arrays. For example, in a certain bicycle race 
there were five contestants and four laps. The times can be placed, as in 
Figure 2.12, into a table with five rows, each representing a contestant, 
and four columns, each representing a lap. Thus, the number in the 
fourth row and second column is the time taken by the fourth contest- 
ant in the second lap. 

APL has an efficient way of describing such arrays. We must, of 
course, show all the elements, but we do not need to arrange them in 
the form of a table. For example, the table 


js described by the expression in Figure 2.13A. The symbol rho is being 
used to separate the vector (2 3) on the left, giving the numbers of 
xows and columns, from the vector 1 2 3 4 5 6 on the right, giving 
the elements. The numbers on the left determine the shape or size of 
the array—in this case there are two rows and three columns. The num- 
bers on the right are the actual elements of the array, and they are read 
into the array row by row and column by column. 

We can create a variable whose value is this array, as shown in 
Figure 2.13B. 

As with vectors, we can reference any element by giving its location. 
For an axray, we must give the row and the column of the element we 
want, and separate these by a semicolon. 


EAPRESSION 
A) 


4, (3+7) 


(3%7),% 


('THE'[2)),('ICE'[11]) 


Т+ 3579 
7121 + (31-701) 


ТГ11%7(21%7(31%7Г%1 


L + 'ABCLMN' 


2121,8Е",2192,2181 


2551,1111,21р21 


8) 


(1.2 3 bh 51 2 3)[7 1 6] 


'CAPITAL'[6 3 7] 


LET + 'ABCLMN* 


LETL21,'E',LET[* 4 5 1 6] 


APL 


BELLMAN 


TEXT + 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 
VOWEL + 1 5 9 15 21 


TEXTL[VOWELi 


TEXT[VOMEL[1 5 2 4 31] 


AEIOU 
AUEOI 


FIGURE 2.11. Some expressions to explain. 


13.3 19.3 18.% 21.% 
16.8 23 16.2 16.2 
26.% 15.% 20.8 22.3 
20.% 21.2 21.2 15.9 
19.% 15.4 24-7 16.7 


FIGURE 2.12. A bicycle race with four laps. 


4) 


(2 3)012 3 + 5 6 


В) 


TABLE + (2 3)р1 2 34 5 6 


FIGURE 2,13. Describing ап array. 
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Thus, suppose we make the assignment shown in Figure 2.14A, Тһе 
variable HOMILY will have the value shown in Figure 2.14B. Notice 
that with character arrays the blank spaces are faithfully reproduced. 

If we wish to change the fourth row, to make it line up with the 
second, third and fifth as shown in part C of the figure, we can proceed 
in (at least) three different ways. 

One way is to change the fourth row element by element. This will 
require five assignments, as shown in Figure 2.14D. A second way is to 
treat the fourth row as avector. Its name is HOMILY [4;] and, as shown 
in part E of the figure, we can assign a value to it all at once. Finally, 
the third method is similar to the second. Again referring to the entire 
fourth row, we can specify those elements which we wish to modify—in 
this case we are, of course, modifying all the elements. 

In a similar way, we can refer to columns of the array. The fifth 
column is named HOMILY{;5] (refer to part C of the figure), and has 
value “Үр SE'. We write this horizontally because even though it is a 
column of the matrix, when we examine it separately it is just a vector. 

И, for example, we want to change just a few elements іп a row ог 
column, we can do so. Figure 2.14G shows how we might change the 
third and fourth elements in the second column of the array. The new 
value of the array will be as shown in Figure 2.14H. 


А) 
HOMILY + (5 5)p'EVERY GOOD BOY DOES РІНЕ! 


B) 

EVERY 
6000 
BOY 

DOES 
FINE 


с) 

EVERY 
соор 
BOY 
DOES 
FINE 


D) 
HOMILYL4 317 
HOMILY[^;2] 
HOMILY( 453) 
HOMILY( 454) 
HOMILYL4;5) 


bette 
š 


E) 
HOMILY(4;J + ' DOES' 


F) 
HOMILY(4;1 2345] + ' DOES' 


б) 
HOMILY[3 %;21 + 'JH' 


8) 

EVERY 
GOOD 
JOY 
HOES 
FINE 


FIGURE 2.14. Changing parts of an array. 
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We should take note of the difference between the way a variable is 
assigned, the way it appears and its actual structure. Consider Figure 
2.15. Part A shows how four variables might be assigned, and the rest of 
the figure shows how these variables would be printed. Note that while 
the first three are printed the same, only the first two have the same 
structure. It might be worthwhile to examine each of the assignments in 
more detail. 

First, we can define the dimension of a variable or expression to be 
the “size of its size." The size of a variable (or expression) is always а 
vector; the number of elements in this vector (the “size of the size") de- 
pends on the type of thing that the variable is. The size of a vector has 
one element, the number of elements of the vector. For the vector 
INCOME in Figure 2.15 the size is the vector of length 1 whose single 
element is 3. So, the dimension of a vector is always 1. 

For an array, the size is a vector with two elements, the first being 
the number of rows and the second being the number of columns, Thus, 
in Figure 2.15 EXPENSES is an array with one row and three columns, 
so its size is the vector 1 3. Its dimension, therefore, is 2. Actually, we 
will soon see that arrays can have any dimension—there are arrays of 
dimension 3, dimension 4 and so on. The arrays of the type we have 
been looking at so far are best referred to as “arrays of dimension 2.” 

Finally, the size of a scalar is also a vector, a vector with no ele- 
ments. This is an artificial construct called the empty vector (or the 
null vector) and is a very useful part of APL. Since the size of a scalar 
has zero elements, the dimension of a scalar is zero. 

Let us return now to Figure 2.15. Clearly, the variable INCOME is 
a vector of size 3, with elements 6, 4 and 9. The variable SALARY is 
the same, except that we have explicitly given its size before listing its 
elements. Once these variables are defined, there is no difference be- 
tween their values. Other ways to get the same result are shown in 
Figure 2.16. 

The variable EXPENSES is different: it is an array with one row 
and three columns. It prints exactly the same as INCOME or SALARY, 
but has a different structure. We can’t ask for its first element; we can, 
however, ask for the first element in the first row. As we can see from 
its definition, it is two-dimensional. 

The fourth variable, MILEAGE, also has two dimensions, but it 
has a different structure. It has three rows and one column and prints 
in exactly that way. 

The similarity in the way that SALARY, EXPENSES and MILE- 
AGE were defined should be clear. In each case we gave the size, then 
the symbol rho and then listed the elements. For a vector we do not 
need to use this form, as the definition of INCOME showed. Using it 
gives us some advantages, however. If the list of values to the right of 
the rho is not long enough to yield ali the elements needed, as indicated 
by the size, then the values are used over and over again, as necessary: 


4) 
INCOME + 6 4 9 
SALARY + 3р6 4 9 
EXPENSES < (1,3)p6 4 9 
MILEAGE + (3,1)p6 в 9 


B) 
INCOME 
6 4 9 
SALARY 
6 4 9 
EXPENSES 
6 4 9 
MILEAGE 
6 
4 
9 


FIGURE 2.15. Some assignments and their values. 


BONUS < 6,4,9 
СІР? < 3 p 6,4,9 
RAISE < 3 p(6 4 9) 


FIGURE 2.16. Some assignments with the same value. 
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the elements on the right are taken from the left to the right, and when 
the end of the list is reached, if not enough elements have been given, 
values are again taken from the beginning. Figure 2.17 shows some 
examples. Note that if too many elements are given on the right then 
the superfluous ones are ignored. 

Before we go on to consider higher dimensional arrays we should 
point out two unfortunate features of APL. If we wish to write down a 
vector each of whose elements is numeric we can just list the elements, 
as: 6 4 9. But if we have variables, even if they have numeric values, we 
must separate them by commas. The assignment to W in the fourth line 
of Figure 2.18A is erroneous—it is meaningless in APL, despite the fact 
that we may understand what was intended. The variables X, Y and Z 
should have been separated by commas, as 


XYZ 


Of course, with numbers the commas are optional, and can be used 
if desired. 

A related problem is illustrated in Figure 2.18B, a line which shows 
how we might try to define an array using the values of X and Y from 
part A. This is also erroneous. What happens here is that, because the 
expression is interpreted from right to left, the phrase “Ү rho O" is 
taken as опе unit, to be concatenated onto X. Thus, the statement 
means the number 6 (value of X) followed by the vector with four 
(value of Y) elements, each of which is zero. 

The solution is to enclose the “X,Y” in parentheses, as shown in 
Figure 2.19. Parentheses are not needed if the size being given is a nu- 
meric vector without commas, but it is a good idea to use them any- 
way. Figure 2.19 also shows some valid array definitions using numeric 
vectors. 


EXPRESSION 


5р1 23 

3p1 23945 
6p'ABCD' 

5p0 

0p5 
(2,3)p'AEFG' 


(4,1)p'HO! 


(EMPTY VECTOR) 
AEF 
GAE 


FIGURE 2.17. Explicit assignments. 


A) 


= tə t< < 
+++ 4+ 
NM OED 


B) 
X,Y p 0 


FIGURE 2.18. Examples of how not to do it. 


(X,Y)p0 


{6,4 )ро 
(6 4)p0 
6%00 


FIGURE 2.19. Correct array definitions. 
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2-6. Explain why each expression in Figure 2.20 has the indicated 
value. 


HIGHER DIMENSIONAL ARRAYS 


When we left the bicycle race they had completed one day's riding, and 
we summarized the times per lap in Figure 2.12. If they decide to con- 
tinue the race for two more days, then the results for the additional 
days will also be summarized in five-by-four arrays. 

If we imagine stacking the three arrays one on top of the other, we 
get a structure with three planes, each of which is a five-by-four array 
representing one day of the race. This structure is a three-dimensional 
array; it has three planes, each of which has five rows, each of which 
has four columns, and so it has size 3 5 4. This array is shown in Fig- 
ure 2.21. 


EXPRESSION 


(2,8)p! BELL МАН" 


(2.40 "ВЕГІМАН" 


TIMES*(4,4)9 12 3 & 5 
TIMES 


TIMESU;3] 
TIMESU2; 
ТІМЕЅ[2;31 
TIMESU2;3 13 


ТІМЕ5І;3 1) 


0р0 


XWORD*(4,4)p'LHEM A I TYT 
XWORD(i1;1]e'T' 
XWORDL3 ;3]e ZO? ' [2] 

XWORD 


XWORD[1;1 3 3),XWORD[1 321 


Wäre 

BOT+2 

WHY,NOTp1 8 9 16 25 36 
WHY „КОТ ' CORRECT* 


тәме 
ever 


P 
"PP 


(EMPTY YECTOR) 


т' 


TEETH 


2149 
(ERROBIOUS) 


FIGURE 2.20. Some expressions to explain. 


13.3 18.% 21.8 
16.8 18,2 16.2 
26.u 20.8 22.3 
[2б.® 21.7 15,9 
19. 21.7 15.7 
16.5 26.3 22.9 
21.1 15.2 16.7 
17.1 19.5 18.5 
20.9 21.2 14.% 
13.3 22.7 17.9 
28.4 49.2 15.1 
22 24.“ 19 

17.5 19.2 17.6 
19 14.7 19.5 
25 21.5 25.2 


FIGURE 2.21. A three day bicycle race. 
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We create such an array just as we created two-dimensional arrays 
and vectors: first give the size, then the symbol rho and then list the 
elements. For an example, see Figure 2.22. The variable GIFT which is 
defined there is an array with three planes, each of which has one row 
and three columns. 

The first plane is GIFT[1;;] with value 


THE 


and so on. Although the plane by plane, row by row, column by col- 
umn rule is the one used by APL in assigning elements into an array, we 
can take other "slices" as we wish. If we want all elements which lie in 
the second column (and in any row or plane) we can ask for GIFT[;;2], 
which is 


HIO 


Or we can ask for all elements in the third plane and the first row, 
which is GIFT[3;1;] with value 


TOY 


Notice that this looks the same as GIFT[3;;] since each plane has only 
one row. There is a difference, although we can't see it directly. The 
third plane of GIFT is an array with one row and three columns, while 
the first row of the third plane (GIFT{3;1;] ) is a vector with three ele- 
ments. The difference is similar to that between a one element vector 
and a scalar, inflated by one dimension. 

Of course, each array and each slice of an array also has a size. Fig- 
ure 2.23 shows an array and the sizes of some of its parts. 

Notice that the number of elements in any array can be found by 
multiplying together all of the elements of its size vector. For example, 
а four-dimensional array with size 2 5 3 4 has 2X 5 X 8X 4 = 120 ele- 
ments. 


EXERCISES 


2-7. Write the description of some arrays of different size, each having 
five dimensions and 32 elements. 

2-8. How many differently sized arrays can you write with four dimen- 
sions and 120 elements; with four dimensions and 119 elements? 

2-9. Write the description of an array with five dimensions and one 
element; with 25 dimensions and no elements. 


EXPRESSION KALUE 


GIPT-(3,1,3)p 'THEBIGTOY' 
GIFT THE 


BIG 


TOY 


FIGURE 2.22. A three-dimensional character array, 


ARRAY*(2,4,3)91 2345678910 


EXPRESSION Y4LUE SIZE 
ARRAY 1 2 8 2% 
4 5 6 
7 в 9 
10 1 2 
з 4 5 
6 7 8 
9 10 1 
2 з 4 
ARRAYU2;;] з а 5 чз 
6 7 в 
9 10 1 
2 з 4 
ARRAYL 313] 1 2 3 23 
зв 5 
ARRAY(; 534 з 6 9 2 24 
5 8 10% 
ARRAY[1;;3] 3 6 9 2 ч 
ARRAY[2;1;3] 5 0р0 


FIGURE 2,23. Some sections of ап array. 
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Before we begin studying APL, we have to learn to make contact with 
the computer. There are many different computer systems offering 
APL and there is по one way for entering into dialogue with the com- 
puter which will work on all systems. While there are certain general 
principles common to (almost) all such systems, which will be enumer- 
ated here, it will be up to you to find out the fine points for yourself. 
There is probably a manual which describes your particular APL system. 
If possible, you should obtain a copy—often the important information 
can be summarized on a few pages and is supplied at low cost (or even 
free!) by the computer center. 


SIGNING ON AND OFF 


The first step is to locate the on-off switch of your particular terminal. 
It may be in plain view, underneath or behind. Turning the terminal on 
does not get you ready to use APL. In fact, you may not even be in 
contact with the computer yet, as many terminals have a switeh which 
lets a user turn off the communication link to the main computer and 
use the terminal locally, as a typewriter. Of course, to communicate 
with the computer you should not be in loca! mode, but in remote (or 
transmission) mode. If you are using a dial-up terminal, you will have 
to dial the proper number and place the telephone receiver in the desig- 
nated holder. There are so many different computer systems that we 
cannot possibly give detailed instructions for each one: you should have 
someone show you how to set up a connection with the computer. 

To work with the APL system, you probably need some kind of 
sign-on code which identifies you to the system. For our purpose we 
will assume that the sign-on code is a number, say 123456789. Having 
turned on the machine, enter the sign-on number as follows 


)123456789 


and then press the RETURN key. 

At this point there are at least six different things which can go 
wrong. Five of these result in the error messages shown in Figure 11.1 
(for a discussion of error messages see Appendix One). You may find 
out that your particular system always gives one of the first two mes- 
sages the very first time you sign on. In this case, simply try again. 
Otherwise, there is a problem. The error messages in APL are usually 
quite informative and precise. If one of these errors should occur, check 
its exact meaning in Appendix One and take the specified action. 

On the other hand, even if you are able to sign on, there is still the 
possibility of a sixth error. When the system responds to you, it will 
probably print your name. If you entered the wrong sign-on code, then 
you can see that you are signed on to someone else's number and you 
should sign off immediately. 


INCORRECT SIGN-ON 
NUMBER NOT IN SYSTEM 
ALREADY SIGNED-ON 
NUMBER IN USE 


NUMBER LOCKED 


FIGURE 11.1. Some sign-on error messages. 
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To sign off it is only necessary to enter the system command 
OFF 


(see Appendix Two for a discussion of system commands). This will ter- 
minate the session, and the computer will respond by giving you in- 
formation about how long you were signed on and, possibly, how much 
your session cost. Typing this command does not turn the terminal off 
however: you must use the on-off switch for that. 

It is possible to ensure that other users cannot sign on with your 
number (accidentally, of course). You can add to your number a pass- 
word or lock. To lock your number, say with a lock like A372XR, sign 
off with the modified command 


JOFF:A372XR 


It is not necessary to do this every time you sign off; once you have 
locked your number it remains locked until you change the lock in 
the same way or remove it by ending a session with the command 


)OFF: 


As long as you end sessions with )OFF the current lock remains in 
force, 

The effect of the lock is that your sign-on number is now changed, 
to 123456789:A372XR, and any attempt to sign on with just 123456789 
results in the error message NUMBER NOT IN SYSTEM. Of course, a 
lock provides security only to the extent that you keep it secure, and 
you may wonder why all the bother. Why not just keep the sign-on 
number secret? 

There are a few answers. First, sign-on numbers are often supplied 
systematically, so that the person coming in ahead of you would get 
123456788 and the person coming after you would get 123456790. It 
is thus easy for someone who wants to sign on under another person's 
number to make an intelligent guess as to what a legal number might 
be; in a system where you are only allocated a certain amount of com- 
puter time, or in one where it costs real money to use the computer, 
it is quite important that no one else be able to use your number. Sec- 
ond, you may want to let someone else “borrow” some of the work 
that you are doing. To do this you have to give them a few pieces of 
information, including your sign-on number but not including your 
lock. Thus, if you have a lock you can release things in this way with- 
out at the same time giving anyone carte blanche to your sign-on. 


Communicating with the Computer 


EXERCISES 


T1-1. 


1-2. 


T1-3. 


I1-4. 


11-5. 
11-6. 
11-1. 


Draw a structure chart for the procedure outlined here for sign- 
ing on, locking your number and signing off. 

Draw a structure chart for the actual procedure which must be 
followed with your system for sígning on, locking your number 
and signing off. 

When you sign on with a locked nuniber, you have to type your 
lock. Invent at least three different ways to circumvent this 
breach of security. Use one. (Note: If it is important that others 
not be able to use your number, as in the case where you are only 
allotted a fixed amount of computer time, then you should be 
serious about security precautions. At one university, a professor 
was very careful about his lock, changing it regularly so that, 
even if it became known, only limited damage could be done. 
However, a group of [luckily honest] students found out that 
the lock was always the name of some character from a certain 
comic strip and so could usually sign on to the number after only 
a few tries.) 

It will sometimes be necessary to contact the computer center 
when problems arise. There is often an operator designated just 
to watch over АРІ, and handle such problems. You should find 
out the operator's phone number and look up the system com- 
mands—)OPR and )OPRN—which allow you to communicate 
with the operator directly from the terminal. Sign on and then, 
using one of these commands, ask the operator how long APL 
will be available today. How long does it take to get a response? 
An answer? 

What do you have to do if you forget your lock? 

How can you tell if someone has been using your number? 

In many installations that use APL it takes a phone call to make 
the connection with the computer. When you type )OFF you 
break this connection, so the next user of the terminal has to 
redial. A way around this is provided by the command 


JOFF HOLD 


which tells the computer that you are done but that the line 
shouldn’t be disconnected. Find out where you must place the 
lock if you want to lock your number and use )OFF HOLD to 
sign off. 


. How long will the line be kept open for a new user when you sign 


off with )OFF HOLD? 
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TYPING 


Figure 11.2 shows the АРІ, keyboard as it should look. Unfortunately, 
most keyboards do not look like this. Often the APL symbols are pro- 
duced by the keys shown in the figure, but the keys themselves are 
either labeled as conventional typewriter keys or have the APL symbols 
stuck on the front face, rather than the top. Some systems are not even 
able to print the APL symbols, and instead provide you with some sort. 
of conversion chart. Since, as some of the originators of APL remark, 
"the visual interpretation of complex APL expressions is, of course, 
awkward with any but an APL printing element," we will assume that 
the full range of APL characters is available. 

If we take a brief tour of the keyboard we will find 52 characters, 
other than letters and numbers, as well as some control keys. The 
names and uses of these characters will be discussed in the succeeding 
chapters; here we will just discuss the most important control keys. 
However, in Figure I1.3 we show a chart giving the names of the special 
symbols—for some symbols we give more than one name in order to 
show the mnemonics which may help you locate the symbols on the 
keyboard. 

Some of the symbols shown in the figure are called overstruck 
characters: type one part of the symbol, and then backspace and type 
the other part. 

When you type anything at all to APL you must follow by pressing 
the RETURN key. This combines the functions of line feed and car- 
riage return, as well as actually sending the line that you typed to the 
computer. (In some systems it may take two or even three keys to effect 
all this.) Actually, the line that you type is accessible to the computer 
before you hit RETURN, but hitting RETURN is the signal that you 
are satisfied with the line and are ready for the computer to process it. 
It follows, then, that before you hit RETURN you can modify the line. 


BACK 
SPACE 


RETURN 


АТТЫ 
ON 


FIGURE 11,2, An APL keyboard, 


сивог EQUUQ-QVERS HUES) 


OR 

ARD 

QUESTION MARK ,ROLL ,RANDOM 
EPSILON MEMBERSHIP 

RHO SIZE, SHAPE 

TILDE ,NOT 

TAKE (SUPPOSED TO LOOK LIKE 'Y') 
DROP (SUPPOSED TO LOOK LIKE 'U') 
IOTA, INDEX 

CIRCULAR (LOOKS LIKE '0') 
POWER „EXPONENT 

CEILING, MAXIMUM 

FLOOR MINIMUM 

UNDERLINE 

DEL, GRADIENT 

DELTA 

SMALL CIRCLE 

KVOTE 

LOZENGE ,QUAD 

CAP INTERSECTION 

BASE ,DECODE 

EWCODE 

MODULUS, ABSOLUTE VALUE 


--жо-«әіза«»>< 


жожо be Š, Bs ON D ta "Ü OS G < ta NL о о 


— ror e. 


SOME OVERSTRUCK CHARACTERS 


SIMBOL EQUED QVER ШАЧЕ(5) 

с LAMP, COMMENT 
NOR 
NAND 
LOGARITHM 
QUOTE -QUAD 
FACTORIAL ,CHOOSE 
1-ВЕАМ 
ROTATE,REVERSE 
TRANSPOSE 
GRADE DOWN 
GRADE UP 
MATRIX DIVISION 
PROTECTED FUNCTION 


E 


LLET ENTERT 
whale kk Ooo 


FIGURE 11.3. Symbols and their names. 
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Suppose, for example, that in trying to type the word VARIABLE you 
actually produce VAREABLE. Before hitting the RETURN key, you 
can correct the mistake by BACKSPACing until the current typing 
position is the erroneous E and then hitting the attention key. What 
you will see (as in Figure I1.4) is that the terminal will perform a line 
feed (but not a carriage return), print a caret under the E, BACKSPACE 
so that the current printing position is again under the E, and line feed 
again. The effect is to wipe out the E and everything after it, while leav- 
ing everything in front of it. It will be as if you had typed VAR and then 
you can continue with IABLE. 


EXERCISES 


11-9. Sit down at the terminal, sign on and experiment. 
T1-10. Verify that the expressions given in Chapter 2 are correct by 
typing them in at the terminal (pressing RETURN after each 
one) and seeing what APL responds. 


VAREABLE 
v 
IABLE < 0 


FIGURE 11.4. Correcting a typing mistake. 
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“То seek it with thimbles, to seek it with care; 
To pursue it with forks and hope; 

To threaten its life with a railway-share; 
To charm it with smiles and soap!" 
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APL is a language—A Programming Language. As with any language, 
there are many ways to learn it. One way would be to begin by memo- 
rizing lists of vocabulary, and then rules of grammar, and to begin to 
make sentences and hold conversations only much later. At the other 
extreme is a technique used by linguists and anthropologists—find a 
native speaker of the language to use as an informant while you teach 
yourself. The native speaker may not know English, but can still be 
helpful by giving the name for things you point at and correcting the 
mistakes that you make. 

Our approach to APL will be more like the linguist's. The terminal 
is a readily available native speaker of APL. There is also, in Appendix 
Three, a dictionary of the language. Some of the grammar (the right-to- 
left rule) has already been presented in Chapter 2 and the rest will be 
introduced when we begin programming. For now, rather than pains- 
takingly going through the dictionary, explaining the meaning of every 
word in excruciating detail, we will spend some time investigating how 
to use the dictionary and the terminal to learn APL. 


THE COMPUTER AS ECHO 
The first thing to learn about APL is that it is very willing to help. If 
you say anything to the terminal it repeats that thing right back to 
you. For example, if (after signing on, of course) you type 
17 
the terminal responds by typing 
17 
Note that what you type is indented while the response is flush left. 
The indentation is done by APL by spacing in from the edge of the line 
whenever it expects you to type something. This serves as a сие for you, 
and also lets you look back at your dialogue and sort out the speakers. 
You may wish to try this again. Type 
.333 
and the response is 
.333 
Туре 


“THE TERMINAL IS TALKING TO МЕ’ 
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and the response is 
THE TERMINAL IS TALKING TO ME 


Notice that the quote marks are not typed back. As explained in Chap- 
ter 2, they are not part of the message. Suppose we want to include a 
quote mark in a message. Try typing 


‘THE TERMINAL ISN'T TALKING TO МЕ’ 


and there will be no response. While it is easy for us to see by context 
that the quote mark in ISN'T is different from the others, APL has no 
way to make such a distinction. In general, the same symbol will not be 
assigned different meanings if there is likely to be confusion as to which 
meaning holds. In this case, APL assumes that you have typed the mes- 
sage ‘THE TERMINAL ISN’ followed by the symbols T TALKING TO 
ME and that you then began another message with °. In other words, as 
far as APL is concerned, anything you type now until you type another 
' js part of the second message, and every time you hit RETURN it will 
wait patiently for more. If you try this at the terminal, you will see that 
the terminal does not indent for you at the beginning of a line when 
you are "inside" quotes. When you finally enter the ending quote, you 
will get an error message, 


SYNTAX ERROR 

and part of the message will be retyped. "Syntax error" means that 
APL recognized that the line you entered was not grammatically mean- 
ingful. 

How then do we get a quote mark in a message? Partly for historical 
reasons, АРІ, uses the rule that two successive quote marks within а 
message stand for the character quote. Thus if we type 

"THE TERMINAL ISN"T SPEAKING TO МЕ’ 


the message which APL receives and returns is 


THE TERMINAL ISN'T SPEAKING TO ME 


EXERCISES 


3-1. What happens if you type four successive quote marks? Six? 
Seven? 


3-2. What happens if you type only two successive quote marks? 
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3-3. Try to formulate, in the form of a structure chart, the rules for 
handling quote marks. That is, once a quote mark is encountered, 
successive symbols are looked at until another quote mark is 
found. Then the very next symbol must be looked at to see if it 
too is a quote mark, etc. 


3-4, What is the size of a string which is entered as four successive 
quote marks? 

3-5. When might you wish to include a RETURN as part of a character 
string? 


CALCULATOR MODE 


As we have seen, the terminal will not always type back exactly what 
you enter; it evaluates your entry before responding. This evaluation 
process is what makes the terminal so valuable in learning APL. For 
example, if you type the expression 


3.5 + 6.5 
the terminal prints back not this expression, but its value: 
10 


Each of the special symbols, which we called “vocabulary words” 
earlier, is an operator, like +. It performs some operation on its argu- 
ments, just as typing 3.5 + 6.5 causes the operation of addition to be 
performed on the arguments 3.5 and 6.5. For another example, type 
the line shown in Figure 3.1. This is an expression, consisting of the 
operator rho and one argument. The response will be 


63 


the number of characters in the argument. Some operators take two 
arguments and some take one—in fact, most can take either one or two, 
in which case the same operator is being used for two different (al- 
though usually related) meanings. The grammar at all times makes it 
clear which meaning is intended. Let’s take a look at an operator. Fig- 
ure 3.2 shows the definition of division as it appears in the dictionary 
(Appendix Three). 

As you can see, this operator has a form with one argument (the 
monadic form) and a form with two arguments (the dyadic form). The 
definition for the dyadic form says that the value of the expression 
А + B is the result of dividing А by B. Let's try some examples іп Fig- 
ure 3.3. 


p'THIS MESSAGE HAS 63 CHARACTERS, INCLUDING BLANKS BUT NOT QUOTES! 


FIGURE 3.1. An expression to be evaluated. 


DIVISION RECIPROCAL 
Scalar, dyadic, numeric Scalar, monadic, numeric 
А + Bis A divided by B. (+B) is the same as (1: B). 
(05 0) is 1. The argument cannot be 0. 
Any other division by 0 
is an error. 


FIGURE 3.2. The definition of division. 


В 
2 

4+8 
0.5 

3:2 
1.5 

0+7 
9 

9:1 
9 


FIGURE 3.3. Some divisions, 
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What happens if we try some extreme cases? Look first at Figure 
8.4А, For each operator only certain types of arguments are allowed. 
It certainly makes no sense to talk of dividing a character by a number; 
if you try to do this the message says that at least one of the arguments 
is not in the domain of the operator. With division there is the special 
case of zero appearing on the right as an argument, as in Figure 3.4B. 
Division by zero is not allowed—in fact, it has no meaning—so a zero on 
the right is not in the domain of the operator, unless there is also a zero 
on the left as in part C of the figure. (Making zero divided by zero have 
one for its value was an arbitrary, and somewhat questionable, choice 
by the designers of the language.) 

Now refer back to Figure 3.2 for the definition of division as a mo- 
nadic operator. It says that monadic division is the reciprocal operator— 
it yields for its value one divided by its argument. Figure 3.5 shows 
some examples. 

At this point we have learned much more than how division works; 
we have really learned about almost all of the APL operators! Most of 
the operators can be used both monadically and dyadically. The defini- 
tions of the two forms usually bear some relationship to each other, 
although not always. The exercises are designed to give you some prac- 
tice in using the dictionary and the terminal to find out how the other 
operators work. 

Most of the operators which we will try in the exercises perform 
some sort of arithmetic function. We will mention briefly two other 
types of operators: relational and logical. 


А) 


УШ 
DOMAIN ERROR 

4133 

A 

B) 

3+0 
DOMAIN ERROR 

340 

^ 
с) 

0%0 
1 


10 


ж 
ole 
o 


+0 
DOMAIN ERROR 

+0 

A 


FIGURE 3.5. The reciprocal operator. 
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Relational operators are such things as equals, less than, greater 
than or equal to, ot not equal to. They are always dyadic and produce 
the value 1 if the relationship that they express between their arguments 
is true, O if it is false. Figure 3.6A shows some examples. 

Logical operators work like logical connectives in language. Some 
examples are and, or, not: the first two are always dyadic; the third is 
always monadic. Just as with relational operators, APL uses the value 
1 to represent **true" and the value 0 to represent “false.” Thus, an ex- 
pression involving the operator and will have value 1 (be true) only if 
both of its arguments have value 1. Since logical values must be either 
true or false, if a logical operator gets an argument which is not a 1 or a 
0, an error message will occur. Figure 3.6B shows some examples. 


А) 


3-3 
1 

ч>6 
9 

5#(6+2) 
1 

{5=3)=(7=7) 
0 
B) 

1^1 
1 

1^0 
° 

~1 
9 

ovi 
1 

(S<3)v(72 1) 
1 

(~5=3)s(5#3) 
1 

5У(3:3) 
DOMAIN ERROR 

Sv(3=3) 

^ 


FIGURE 3.6. Relational and logical operators. 
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EXERCISES 


(Note: all of these should be tried at the terminal. For most, you will 
want to consult the dictionary first, but try the starred exercises at the 
terminal first without the dictionary.) 


*3-6. 
*3-7. 
3-8. 
*3-9. 
*3-10. 
*3-11. 


3-12. 


*3-13. 


*3-14. 
3-15. 


3-16. 
3-17. 


3-18. 


3-19. 


3-20. 


Evaluate the expressions іп Figure 3.7A. 

Evaluate the expressions in Figure 3.7B. 

Using the terminal, find the value of the expression in Figure 
3.7C. Do not use multiplication. Are there different ways to do 
this? Which is simplest? 

Discover a monadic operator which, when applied to 3, pro- 
duces 1. 

Discover a monadic operator which, when applied to 0, pro- 
duces 1. Find two more, 

Find a monadic operator which does not always give the same 
result when applied to 150. 

Discover a dyadic operator with the following properties: both 
arguments must be greater than 0 and the left argument must 
not be 1. 

Discover a dyadic operator which, when both arguments are 
‘А’, produces 0. 

Find а monadic operator which does not work dyadically. 

Find а dyadic operator which does not work monadically. Find 
many. 

Which of the expressions in Figure 3.7D causes an error? 

Find some operators which cannot take character arguments. 
Find some which can. 

Write an expression involving three characters (and some opera- 
tors) which produces a 1 if all three characters are the same and 
а 0 otherwise. Write a similar expression for the case when at 
least two are the same; exactly two are the same, all are dif- 
ferent. 

For each monadic operator shown in Figure 3.7E write an ex- 
pression involving a number X which will produce a 1 if X ва 
valid argument to the operator. 

Write an expression involving numbers X and Y which produces 
1 if the expression shown in Figure 3.7F equals Y, 2 if it pro- 
duces a DOMAIN ERROR and 0 otherwise. 


4) 


B) 


с) 


2) 


в) 


F) 


#43 
#343 


3+2-+.1 

6х3-+5 

3+'А'='В' 
('А'='В!')-(8+-1) 
х5 

+17 

x2+'A'='A' 
(5<32У(3<5)А(2<71) 
17х3- (3+0) ++4-+.25 


9x8x7x6x5xux3x2x1 


өрен 
(151 =77')<(3=9) 
ізеті 
tatg 


xir 


FIGURE 3.7. Some exercises. 
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SCALAR OPERATIONS EXTENDED TO ARRAYS 


So far we have only been discussing operations on scalars. Suppose that 
we wished to find the reciprocal of every element in a vector. We could, 
of course, find them one at a time, but in APL if we apply a monadic 
operator to any vector or array the operation is performed on the ele- 
ments one at a time. So if we make the assignment in Figure 3.8A, and 
then type the expression in Figure 3.8B asking for the reciprocals of the 
elements of the vector VOLTAGE, the result is the vector shown in 
part C of the figure. 

Or suppose that we had the array GRID defined in Figure 3.8D and 
wished to take the floor of each element (the floor of a number X is the 
greatest integer less than or equal to X). Figure 3.8E shows how this is 
done: simply apply the monadic operator floor to the array GRID. 

Notice that while we have only discussed two operators here, we 
have really learned how to work with any monadic operator which can 
be applied to a scalar. Such an operator can be applied monadically to 
any vector or array, and the result will be as if it had been applied ele- 
ment by element. 

The dyadic operators can also be extended to arrays, but here we 
must take a small amount of care. There are two different cases to con- 
Sider. The first is when one of the arguments to the operator has just 
one element, such as a scalar, or a vector or array with only one ele- 
ment. 

1f one of the arguments has only one element, and the other is an 
array, then the operation is performed between the single element and 
each array element in turn. Figure 3.9 shows some examples. In each 
case, the result of the operation is a vector or array of the same size as 
the original. 


4) 
VOLTAGE + 1 2 4 10 75 


B) 
+VOLTAGE 
с) 
1 0.5 0.25 0.1 70.2 
D) 
GRID < (3,2)p 1 ^.3 .5 7.7 79 
GRID 
1 70.3 
0.5 7.7 
79 0 
E) 
LGRID 
1 71 
о 7 
79 0 


FIGURE 3.8. Monadic operators applied to arrays. 


(5 2 73 6 ^5 9)43 


8 5 0 9 2 12 


10-(3,3)012 3 56 78 9 


ga vB m 
6 5 & 
Зі 2- 1 


((1,1,1,1,1)012):1 2 3 4 6 12 
12 6 4 8 2 1 


FIGURE 3.9. Extensions of dyadic operators. 
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On the other hand, if both arguments are arrays then their sizes 
must match exactly. If the sizes do match, then the dyadic operation is 
performed between corresponding elements. For example, if we multi- 
ply a vector by itself, as in Figure 3.10A, the result is a vector whose 
elements are the squares of the elements of the original. Or, as in Figure 
3.10B, we can use different arguments, if their sizes match. 

However, if we forget the rule, as in Figure 3.10C, then an error 
message is printed. The caret shows the point at which APL finds the 
first indication of error. Let's reconstruct the process by which APL 
scans the first expression. Certainly the vector 7 5 6 9 is valid, and there 
is no reason that it cannot be the right argument of the multiplication 
operator. Likewise, the array on the left is, by itself, valid (had it not 
been, the caret would have pointed someplace inside the parentheses). 
But the array on the left cannot be the left argument of any dyadic 
operator if the vector is the right argument, so the error is detected 
only after all parts of the expression have been examined. In this case, 
APL finds the error when it realizes that there is an array on the left 
and a vector on the right. The error is a RANK ERROR, meaning that 
the dimension of the item pointed to by the caret is incorrect (because 
it doesn't match the dimension of the other argument). 

Іп the second example of part C, the dimensions of the arguments 
are the same, but even so the sizes do not match. The arguments are 
vectors of different lengths, so the error is a LENGTH ERROR. 

In summary: 


If one argument to a dyadic operator has one element, the size of 
the result is the size of the other argument. 


И both arguments are vectors or arrays, the size of the result is the 
common size of the arguments. 


4) 
(123556)x1 23 9 5 6 
1 4 9 16 25 36 


B) - 


(6 7 8)- 0 4 
2- 27,222 


'BOLOGNA'-'SALAMI ' 
0 0 1 0 0 0 O 


((2,3)р 1000 1 4)A(2,3)e 011110 
о 
010 


о 
о 


((2,2,1)p10 20 30 50):(2,2,1)01 2 3 4 
10 
10 


10 
10 


с) 
((1,4)р1 23 8)х7 5 6 9 
RANK ERROR 
((1,4)p 123 8)х7 5 6 9 
^ 


(2 5 9)x1 3 7 11 
LENGTH ERROR 

(25 9)x13 7 11 

^ 


FIGURE 3.10. More extensions of dyadic operators. 
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There is another way to extend the scalar dyadic operators to vec- 
tors and arrays. Suppose that we wanted to add all the elements оға 
vector together. We use what looks like a monadic operator made up of 
two symbols, a plus followed by a slash. An example is shown in Figure 
3.114. This is the sum reduction of the vector, and is а shorthand way 
to add up the elements. In fact, the expression in Figure 3.11A has the 
same value as the one in Figure 3.11B. The difference, of course, is that 
we can take the sum reduction of a variable which has been assigned 
previously without having to write down all of its values. An example 
is given in Figure 3.11C. 

The reason that two symbols are used for the sum reduction opera- 
tor is that we can use any scalar dyadic function in place of addition. 
Some examples are shown in part D of the figure. 

It is not necessary that the argument to a reduction be a vector: any 
array is permissible but, as will be seen in the exercises, the correspond- 
ing result may be surprising. 


EXERCISES 


3-21. What happens if we take the reciprocal of a vector which contains 
a0? 

3-22. In Figures 3.9 and 3.10, which of the parentheses are necessary? 
И some aren't needed, why were they used? 


4) 


+/1 23% 
10 
B) 
1424348 
10 
с) 
INTEGERS + 1 2 3 4 
+/INTEGERS 
10 
D) 
EXPRESSION VALUE 
-/123% 72 
-/4 321 2 
x/6 54321 720 
+/12 3 4 16 
=/5 5301 o 
T/3 1 5 2 5 
1/3 7152 E: 
v/'DOG'-' НОС! 1 


FIGURE 3.11. Some reductions. 


EQUIVALENT ТО 


1-2-3-% 
4-3-2-1 
6x5x4x3x2x1 
12%3:% 
5=5=3=0=1 
ЗГ7115Г2 
31711512 
м/0 1 1 
0У1У1 
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3-23. 
3-24. 


3-25. 
3-26. 
3-27. 


3-28. 


In each triple in Figure 3.12A, which two have the same value? 
Using the logical operators and reduction, write expressions for 
each of the following statements about a vector TONES: 

а. All of the elements of TONES аге equal to ‘C’. 

b. None of the elements of TONES is greater than 8. 

c. At least one element of TONES is ‘F’. 

d. Not more than five elements of TONES are negative. 

How will you verify that the answers to Exercise 3-24 are correct? 

Predict which expressions in Figure 3.12B will cause errors. 

(Note: This is an “advanced” exercise in using the terminal to 

figure out the way that an operator works.) Try to discover the 

rules for the way that sum reduction is applied to arrays. 

a. What is the result of the sum reduction of an array FILE 
when all but one element in the size of FILE is a 1? 

b. In Exercise 3-27a, what is the size of the result? Compare the 
dimension of FILE with the dimension of its sum reduction. 

с. Predict and test a relationship between the dimension of any 
array and the dimension of its sum reduction. 

d. Íf you have gotten this far, you should be able to assign the 
correct value to each expression in Figure 3.12C without 
using the computer or knowing all about how sum reduction 
works for arrays. 

e. What have you learned so far about other reductions (times 
reduction, minus reduction, etc.) applied to arrays? 

f. Design a sequence of experiments like the ones above to 
determine the general rules for sum reduction of arrays. 

Show that and reduction can be read “аП of" and that or reduc- 

tion can be read “апу ой.” What interpretations can you give to 

reductions which use other logical operators? To reductions 
which use other operators? 


MIXED OPERATORS 


We come now to the so-called mixed operators. These are the irregular 
verbs of APL. They provide much of what is interesting, and like the 
irregular verbs in natural languages there is no one pattem which can 
describe them all. Some act on scalars to produce vectors, while others 
act on arrays to produce other arrays, often of a different size than 
the originals. Some of those which act on scalars extend to vectors, as 
in the previous section, while others do not. 


> 


R 5 

1.2 1 2 3<2 
172 1 2 3. 
12 322 34 
х1 (1,3)р1 
16 120 

78 -/3 52 
(2,3)p'AX'='X' (2,3)р0 
4/12 6 .5 x3 

*/3 8 51 ^/100 
3p'üH' “НАТ! 
B) 


(321 2 3)v(521 2 3 4) 
'ABCD's' E" 


х/ 2315 
((3-5)-2)-8 
(2,3)p0 1 0 1 
-/3 35 

v/' HI'z'LO' 
"НАТ'[х1 2 3] 


((2,3)р1 2 3 щ)=(2,3)ру +/1 234 5 


6:4-1 234 
"АВСр'=1 2 3 4 
(Зрр1 2)-3р(1,3)р3 


с) 
EXPRESSION 
4/(3,2)p1 2 3 4 


%/%/(1,1,1,1)р10 


pt/*/(2,2,2,2)p5 


FIGURE 3.12. Exercises. 
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х(2,2)р5 
(2,2)p10 
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Due to the diversity among these operators, we will not examine 
each in detail. Rather, by looking at a few we can develop an idea of 
the sorts of details we must attend to in learning a new operator. 

For our first example, see Figure 3.13. The operator here is called 
iota and, as we shall see, the топадіс and dyadic forms do not have a 
great deal to do with each other. 

The monadic form is used to generate a vector from its scalar argu- 
ment. Applying iota to a positive integer N yields the vector 123... N. 
Applying iota to 0 yields the empty vector. Applying iota to any other 
argument causes an error. Some examples are shown in Figure 3.14. 

We should point out here that it is possible to set APL so as to 
change the origin for the iota operator. If we change the origin to 0 
then iota N will be 012... N—1. Also, the first subscript of a vector will 
be the Oth instead of the first, For the purposes of examples, we will as- 
sume that the origin is 1 (1 origin indexing) unless otherwise specified. 

As a dyadic function, iota is quite different. As we can see from 
Figure 3.13 and Appendix Three, its left argument must be a vector 
while its right argument is not restricted. For this operator, the action 
can be demonstrated by showing its behavior with a scalar as right-hand 
argument; for any other right-hand argument the effect is then element 
by element. 


1 (D) 

INDEX 

Mixed, dyadic, any/any 
A.B) has size (pB). A must bea 
vector. Each element of the result 
is the location of the first occur- 
rence in А of the corresponding 
element of B. “Мопоссштепсе” 
is indicated by the value 1*(pA): 
(9 17 15)1(2,3)р9 17 11 15 6 28 
124 
344 


Note: In 0 origin the result 
would have been: 


013 
233 


FIGURE 3.13. The definition of iota. 


10 


i (D 
INDEX GENERATOR 


Mixed, monadic, integer 
(1B) is a vector of B successive 


integers, starting with the origin: 


18 [10rigin] 
123 

15 [0 origin] 
01234 


NOTE-PRINTING THE EMPTY VECTOR CAUSES 


ONE LINE SKIP 


12.3 
DOMAIN ERROR 

12.3 

^ 


14 6 8 

RANK ERROR 
14 6 8 
^ 


FIGURE 3.14. Examples of monadic iota. 
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Consider the first. expression in Figure 3.15A. The argument on 
the left is a vector and the argument on the right isa scalar. Note that 
the scalar is the fourth element of the vector; this is the information 
that iota is designed to tell us. Thus, the value of the expression is 4. 
Similarly, the value of the second expression is 15. Note that there are 
many occurrences of the character ‘U’ in the left-hand argument, but 
that iota only gives the location of the leftmost. The third expression 
shows what happens if the right-hand argument does not appear on the 
left—the result is 1 plus the size of the vector. 

If the right-hand argument is not a scalar, then the operator is ap- 
plied element by element, always with the entire left-hand argument. 
Figure 3.15B shows more examples of dyadic iota. 

Dyadic iota is quite different from any of the dyadic scalar opera- 
tors, since it does not allow arbitrary left-hand arguments, even though 
any argument is acceptable on the right. You might even think of the 
operator plus its left-hand argument as a sort of "specialized operator" 
which can take any right-hand argument, А similar pattern exists for 
many of the mixed operators in that there are constraints placed on 
which left-hand arguments they permit. It is not, however, always the 
case that no constraints are placed on the right-hand arguments, as the 
next complementary pair of operators shows. 


А) 
6 103 8 72 518 
4 


"THE MOON IS BLUE, HOW TRUE ARE YOU?'|'U' 


25 
123 4110 
5 
B) 
"DYADIC' V! I0TA* 
5 T TCR 


1235561025468 
* ЗА Xe.» 


tt 2.341 


LANGUAGES < (4,3)p'APLPLIFAPASM' 
LANGUAGES 


'COMPUTERS' LANGUAGES 
10 4 10 
в 10 10 
10 10 4 
10 9 3 


313 
RANK ERROR 

313 

A 


{,3)13 


((2,4)р1 2 3)12 
RANK ERROR 

((2,%3р1 2 3)12 

A 


FIGURE 3.15. Examples of dyadic iota. 
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Figure 3.16 is a summary of the forms available to us when using 
the operators compress and expand. Even though it doesn't tell us what 
the operators do, it does give us much useful information. First of all, it 
does tell us that the left-hand argument must be composed of zeros and 
ones. Furthermore, the figure shows six forms, three for compressing 
and three for expanding. Each form for compressing is matched by an 
analogous form for expanding, the only difference being the way that 
the slash marks tilt. We might expect, therefore, that there will be a 
great deal of similarity in the way that these two operators perform. 

We will begin with compress. The left-hand argument must be logi- 
cal (made up of zeros and ones); a logical vector is sometimes called a 
bit-string. Furthermore, if this argument has more than one element, it 
must be a vector and not an array. As with many other operators, al- 
though it was not the case with iota, there are also restrictions on what 
right-hand arguments are permissible. In this case, the restriction de- 
rives from our choice of left-hand argument. 

Whenever an operator requires that its arguments possess certain 
similarities, we say that the arguments must be conformable. Тһе mean- 
ing of conformable, however, varies from one operator to another. The 
simplest case to consider with compress is when the right-hand argu- 
ment is a vector; then, conformable means that the two arguments must 
have the same size. 

Consider the expression in Figure 3.17A. This is a compression ex- 
pression: the vector on the left is logical, it has the same number of ele- 
ments as the one on the right, and the two vectors are separated by the 
symbol for compression. Now, the first element on the left is a 1; this 
tells us to select the first element on the right. Similarly, since the sec- 
ond element on the left is a 0, we ignore the second element on the 
right. As the result shows, what we are doing is using the left-hand ar- 
gument as a guide to tell us which of the elements on the right to take. 
Figure 3.17B shows some more examples of compression of vectors. 

If the argument on the left has only a single element, whether it be 
a scalar or a one element array of many dimensions, the operation still 
makes sense: if the left-hand argument is 1, then the entire right-hand 
argument is taken, while if there is а 0 on the left, the result is the 
empty vector. Part C of the figure shows some examples. 


X/Y X (logical)* compressing along the last dimension of Y 
X/UZ/Y X (logical) compressing along the Zth dimension of Y 


X#Y X (logical) compressing along the first dimension of Y 
X\Y X (logical) expanding along the last dimension of Y 
X\CZ1Y X (logical) expanding along the Zth dimension of Y 
XXY X (logical) expanding along the first dimension of Y 


*That X is logical means it is composed of zeros and ones. 


FIGURE 3.16. Compression and expansion, 


A) 

1 0 1 1 0/'APPLE' 
APL 
B) 

01010/1 2345 
2 4 


PRESSURE + 12 3 14 1975739111 
(PRESSURES7)/PRESSURE 

87 5 7 3 1 
(PRESSURES7 ) /ApPRESSURE 

2. 5 6 7 8 10 


000000 O/'FORTRAN' 
(EMPTY VECTOR) 


1111 1/'KOALA' 


КОАГА 
C) 
1/10 20 30 
10 20 30 
0/'PANDA' 


(EMPTY VECTOR) 


((1,1,1)01)/'FILES' 
FILES 


FIGURE 3.17. Some compressions. 
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When the right-hand argument is an array, compression takes place 
along only one dimension. For example, consider the compression ex- 
pression in Figure 3.18A. Compression acts on each row, so that as a 
result entire columns are either selected or ignored. This is a sort of 
element by element extension to the rule for vectors, except here the 
“elements” are entire rows of the array. If the array has more than two 
dimensions, the same rule holds: compression acts to select or ignore 
columns. 

We can see, therefore, that for the right-hand argument to be con- 
formable with the left, the following rule must hold: If there is more 
than one element on the left, then the number of elements on the left 
must be equal to the number of columns on the right. 

When we compress an array, the size of the result is almost the same 
as the size of the right-hand argument. The only difference comes in 
the number of columns: the number of columns in the result is equal to 
the number of ones in the left-hand argument (unless, of course, the 
left-hand argument was a single 1, in which case the result is equal to 
the right-hand argument). Figure 3.18B shows some examples of com- 
pressing arrays. 

What we have been doing so far can also be called column compres- 
sion or compression along the last coordinate. We can do compression 
along any coordinate of an array. For example, in a two-dimensional 
array, we could also do row compression: the left-hand argument would 
be applied to each column, so that entire rows would either be selected 
or ignored. To do compression along any coordinate other than the last, 
we must specify the coordinate inside brackets right after the compres- 
sion sign. Figure 3.18C shows some examples. 

Expansion has an approximately opposite effect. We need only dis- 
cuss the case where the right-hand argument is a vector, however, as 
the extension to arrays is very similar to the way that it is for com- 
pression. 


4) 


GUIDE + {3,6)р\6 


GUIDE 
123 4 5 6 
2123 4 5 6 
1 2 3 4 5 6 

10 011 0/GUIDE 
18 5 
1*4 5 
18 5 

B) 

NAMES + (2,7)p'J. SMITHA.JONES* 

INITIALS «101000 0 

NAMES 

J.SMITH 
A.JONES 

INITIALS/NAMES 

vs 
AJ 

RACE + (2,3,4)0124 

LAPS +1001 

RACE 

4 2 3 4 
5 6 7 8 
9 10 11 12 
13 14 15 16 
17 14 18-20 
21 22 23 2% 
LAPS/RACE 
10% 
5 8 
9 12 
13 16 
27-20 
21 2% 
с) 

1 0 1/13]GUIDE 
1235 5 6 
123% 5 6 

O 1 0/L2)RACE 

5 5 7 Ж 
17 18 19 20 
INITIALS/L 2)NAMES. 
45 
AJ 


FIGURE 3.18. Compressing arrays. 
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Again, the left-hand argument must be a logical vector and it must 
conforma. be conformable with the right-hand argument. However, conformable 
ОДГ has a different meaning than it did for compression. For a vector as 

right-hand argument, there must be as many ones on the left as there 
are elements on the right. There will, in general, also be zeros on the 
left. These indicate places where the right-hand argument is to be ex- 
panded by the insertion of zeros (in numeric vectors) or blanks (in char- 
acter vectors). Some examples are given in Figure 3.19. 


101 0 1\'АРГ' 
APL 


10101\2 46 
2 очо 6 


NAMES + (2,6)p'JSMITHAJONES' 


NAMES 
JSMITH 
AJONES 
101111 1NAMES 
J SMITH 
A JONES 
INTEGERS + (2,5)p110 
INTEGERS 
1 2 3 4 5 
6 7 8 8 10 
1 1 ONXC1]INTEGERS 
1 2 3 % 5 
6 7 8 9 10 
0 9 0 0 о 
1 0 1\[1]INTEGERS 
1 2 3 4 5 
0 9 9 0 0 
6 7 8 8 10 


FIGURE 3.19. Expansions. 
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EXERCISES 


3-29. 
3-30. 


3-31. 
3-32. 


8-33. 


3-34. 


3-35. 


3-36. 


3-37. 


3-38. 


3-39. 


Which expression in Figure 3.20A is different from the others? 
Use each of the operators rho and iota, and compress to write 
an expression whose value is the empty vector. 
Use compression to find the message hidden in Figure 3.20B. 
Explain how compression сап be used with other operators for 
each of the following: 
а. Removing all the vowels from a character vector. 
b. Finding the locations of the positive numbers in a numeric 
vector. 
c. Adding an ‘S’ to ‘STICK’ if the value of a variable named 
COUNT is greater than 1. 
Given two variables LEFT and RIGHT, write an expression 
which produces the value 1 if the variables would be conform- 
able for compression (with LEFT being the left-hand argument). 
Formulate and verify a rule telling when two variables are con- 
formable with respect to expansion. 
Can the empty vector be a left-hand argument of a compression; 
of an expansion? 
Evaluate the expressions in Figure 3.20C; check your results at 
the terminal. 
Write an expression which, for any positive integer N, gives the 
vector N N—1 N—2 ... 1. What would be the result of your ex- 
pression in 0 origin indexing? 
Another special form of compression (or expansion) can be ob- 
tained by overstriking the operator sign with a subtraction sign, 
as shown for compression in Figure 3.20D. Use the terminal to 
discover along which coordinate this indicates compression (or 
expansion). 
It is often convenient to be able to distinguish between character 
variables and numeric variables. To do this, we have to make a 
supposition. Suppose that when a variable has the empty vector 
for its value, APL has some way to distinguish whether it is an 
empty vector of numbers (see Figure 3.20E) or an empty vector 
of characters (Figure 3.20F). Let J be an empty vector. Follow- 
ing the definition of expand literally, what is the value of 052 if J 
is an empty character vector; if J is an empty numeric vector? 
Now, write an APL expression involving a variable U which will 
produce 0 if U is made up of characters and 1 if it is made up of 
numbers. (Hint: we would first create an empty vector from U, 
then use expand to get either a blank or a 0, and finally check to 


A) 


B) 


123 416 
'DOGGED'ı'E' 
(1+15)[5] 
*t/ ' HA  v!MA' 


WAHBCADTE F G 
H IJFKOLOMLNS 
TOHPQERSSET U 

MVOWXRYTZA1L28 
3 4SB6E7 8 9 


с) 


р) 


Е) 


F) 


1 001 1 1/3416 

{551 2 3 4 5 6 7)/'ONLYAPL' 
1 1 0 1/'THEY' 

11 0 IN PEI 


XWORD + (3,4%)p'DUCKO 0 GOWN' 
1 0 1/L1JXWORD 

1 0 1 0/[21XWORD 
(XWORD[2;]=t*Ot)/veXWORD[2;] 


ACCOUNT < (3,2,2)р%х119 
01010 ONL2JACCOUET 


09. 


FIGURE 3.20. Exercises. 
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see whether the value produced was a 0.) Verify the supposition 
by checking all this at the terminal. 


The following exercises are intended to help you discover the way 
that some of the other mixed operators function. Other mixed opera- 
tors will be discussed in the text when they are needed, but you are en- 
couraged to try to become familiar with as many as you have time for. 


8-40. Which expression(s) in Figure 3.21A have value 1? 

3-31. Verify that the expression in Figure 3.21B differentiates between 
arbitrary numeric vectors L and vectors made up of only zeros 
and ones. Will the expression also work for arbitrary arrays? If 
so, explain why. If not, write one which will. 

3-42. The grade up operator is shown in Figure 3.21C. Apply it to the 
first vector shown to produce each of the other two. (Hint: one 
of these requires subscripting.) 

3-48. The grade down operator is shown in Figure 3.21D. Use it to 
produce the first vector shown from each of the others. 

3-44. The monadic reverse operator is shown in Figure 3.21E. Insert 
it, and any appropriate parentheses, in the expression shown 
there to make the value of the expression equal to 12. 

3-45. Verify that for any vector TIMES, each expression in Figure 
3.21F will always have value 1. One of them will not work in the 
same way if TIMES is not a vector. Modify it so it does. 

3-46. Which expression in Figure 3.21G is not equal to the other two? 

3-47. Show that if S is a scalar and V is a vector then the expression in 
Figure 3.21H produces the vector V if S is an element of V, and 
the empty vector otherwise. Write an expression which gives all 
the indices where S appears in V, or the empty vector if S is not 
in V. 

3-48. Using various of the symbols shown in the first line of Figure 
3.211, produce each of the other lines from the vector 1 2 3 4 5. 


4) 


1415 
1415 
(341591) 
5614 
4641234" 
B) 
(*/Le0 1)=pL 
с) 
à E 
37194 6 
63152% 
7613%79 
2) 
654393221 
123456 
13711 31 99 
E) 
$ 
+/ а3 + аз 
P) 
x/TIMESeTIMES 
~OeTIMESETIMES 
б) 
189110 
Duo. 
66110 
H) 
(CoV)xSeV)pV 
1) 
ekot 
0 
00 
2 
12 
1234 
2345 
S 432 


LENGTH ERROR 
DOMAIN ERROR 
SYNTAX ERROR 


FIGURE 3.21. More exercises. 
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COMPOSITE OPERATORS 


Suppose that two people each make certain purchases from a mailorder 
catalogue. Each row of the array AMOUNTS shown in figure 3.22A 
represents the purchases of one person—the 8 in the second row and 
third column indicates that eight of the third item were ordered by the 
second person. The costs per item can be represented in the vector 
COSTS; one unit of the first item costs $40 and so on. 

It is simple to calculate the amount which each person must рау: 
take the amounts ordered, multiply each by the corresponding cost per 
item, and then add all the costs together. Figure 3.22B shows how easily 
this can be done in APL. 

A large company, which may get hundreds of order forms each day, 
might have to perform exactly this sort of calculation on each one. It 
would surely be a tiring and somewhat error-prone process if someone 
had to repeat the calculations shown in the figure once for each row of 
the array. Clearly, what is needed is a way to extend these calculations 
from one row to the entire array іп a row by row manner, just as other 
operators have been extended element by element from scalars to arrays. 

While conceptually it is not difficult to see that an operation might 
be extended from rows (vectors) to arrays, we might have some prob- 
lems in this particular case as we are not dealing with one operation but 
two—multiplication and sum reduction. The designers of APL solved 
this problem by creating a new type of operator—one which turns a pair 
of operators into a brand new one. 

First, let's look at a specific case. Figure 3.23 shows the inner prod- 
uct of the array AMOUNTS with the vector COSTS. You can see that 
the result is a vector whose first element is the total cost associated 
with the first person (first row of AMOUNTS) and whose second ele- 
ment is the total cost associated with the second person (second row of 


4) 
AMOUNTS + (2,5)p110 
AMOUNTS 
1 2 3 4 5 
6 7 8 9 10 


COSTS- 40 30 20 10 1 
COSTS 
40 30 20 10 1 


B) 

*/AMOUNTS(1;1xCOSTS 
205 

*/AMOUNTSL2; )xCOSTS 
710 


FIGURE 3.22. Calculations of total costs, 


AMOUNTS 


AMOUNTS*.xCOSTS 
205 710 


FIGURE 3.23. An inner product. 
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AMOUNTS). If we call the inner product of AMOUNTS with COSTS 
by the name RESULTS, then RESULTS is a vector defined as shown 
in Figure 3.24A. 

You can see that in this case the period acts something like an oper- 
ator which takes the arguments plus and times, producing the operator 
called inner product. In fact, there is some truth to this. APL lets you 
combine any two scalar operators in this way, to get a generalized inner 
product. Figure 3.24B shows how this might be defined. The two oper- 
ator symbols used there are not real operators; they can be replaced 
with two dyadic scalar operators to get a valid definition. 

The existence of generalized inner product is one of the very power- 
ful features of the language. However, most of the applications are 
somewhat mathematical, and so outside of the scope of this book. For 
this reason, we have not discussed generalized inner product in detail; 
it can be used with other types of arguments—two arrays for example— 
and there are detailed definitions and conformability requirements for 
each case. We leave it to the interested reader to do further experimen- 
tation and exploration. 


А) 


В) 


RESULTS + AMOUNTS+.xCOSTS 


8----- RESULTS IS А VECTOR OF 
-SIZE (pAMOUNTS)(1] 
ттезе ITS I-TH ELEMENT IS 


RESULTSLI] + «/AMOUNTS[I;]xCOSTS 


RESULTS + AMOUNTSO.ECOSTS 


a----- ө AND Ы ARE TWO SCALAR OPERATORS 
R< THE І-ТН ELEMENT OF RESULTS IS 


RESULTS[Ij + e/AMOUNTSECOSTS 


FIGURE 3.24. Definitions of inner products. 
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It should be no surprise that where there is an inner product there is 
also an outer product. Again, we will not discuss this in detail, but will 
merely provide an example of how it can be used. Perhaps we have two 
vectors and want to know which elements in the first are equal to 
which elements in the second. Suppose that the first vector has five ele- 
ments and that the second has eight. This requires 40 comparisons. Using 
an outer product, as shown in Figure 3.25A, we can do these compari- 
sons and end up with a nice visual record of the results. For example, if 
we look at the fifth row, there is a 1 in column three. This means that 
the fifth element of OFFERS is equal to the third element of COSTS. 
The rest of Figure 3.25 gives the definitions for outer product. 

The symbol for outer product looks very much like the symbol for 
inner product. The difference is that the little circle which appears be- 
fore the period is not an operator. Any valid dyadic scalar operator can 
be placed after the period. Also, there is a great variety to outer prod- 
uct which we have not discussed; as with inner product, the exact defi- 
nitions for different types of arguments, and the corresponding con- 
formability rules, are left to the interested reader. 


EXERCISES 


3-49. Using the definitions in Figure 3.26A, evaluate and explain each 
expression in Figure 3.26B. 

3-50. Using outer products, write expressions which yield each of the 
following: 

а. А square (the same number of rows and columns) array with 
ones on the main diagonal (running from upper left to lower 
right) and zeros everywhere else. 

b. A square array with ones above the main diagonal and zeros 
everywhere else. 

3-51. We have purposely not discussed how to extend the comma, 
which is used to concatenate vectors, to arrays. Find out how to 
concatenate (or laminate) arrays. What are the conformability 
requirements? What happens when a number in brackets is 
placed right after the comma? 


A) 


ооово 


B) 


С) 


соооо 


OFFERS + 46 1 33 19 12 
COSTS < 1 11 12 1 2^4 2 16 33 
OF FERSe.=COSTS 


900000 
010000 
000001 
000000 
100000 


RESULT + OFFERSe.-COSTS 


8----- RESULT IS АМ ARRAY WITH (pOFFERS) ROWS 
8----- AND (pCOSTS) COLUMNS. ITS (I;J] ELEMENT 
a----- IS DEFINED BY 


RESULTLI;J] + OFFERSLIJ-COSTS(dJ] 


RESULT + OFFERSe.BCOSTS 


А----- E IS ANY SCALAR OPERATOR. 
RESULT[I;J] + OFFERSÜI]BCOSTSUJ] 


FIGURE 3.25. Outer products. 
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PRODUCTS + (3,4)p112 
TAXES < 1 10 100 2 


PRODUCTS*.xTAXES 
PRODUCTS*.-TAXES 
PRODUCTS-.»TAXES 
PRODUCTS*.«TAXES 


FIGURE 3.26. Inner product exercises. 
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When you sign on to the machine there are usually many other users as 
well and you do not have the entire machine at your disposal. Instead, 
you are assigned a small piece of the machine called a workspace. We 
will not be concerned with the way that workspaces are actually han 
dled by the machine but only with how they appear to us. 


LOAD, CLEAR, COPY 


Think of a workspace as a single sheet of paper on which you can write 
and erase at will. Initially, when you sign on, you are given a clean sheet 
of paper called a clear workspace. At any time, you can erase everything 
from your workspace and make it clear again by issuing the system 
command 


JCLEAR 
CLEAR WS 


The system responds with the message CLEAR WS, as shown, to indi- 
cate that the erasing is completed. 

The workspace that is available to you when you are working at the 
terminal is called your active workspace: this is the one in which you 
do your writing and erasing. There are, however, three “filing cabinets” 
containing workspaces which you can reference. 

Why would you want to reference another workspace? Other work- 
spaces can contain information about the computer; drills to help you 
learn APL; programs that you or other people have written to do a vari- 
ety of tasks, games, puzzles; and even calendars containing nude pictures 
of your favorite cartoon strip dog. 

Workspaces are collected together in libraries, Each library can have 
any number of workspaces. Every user has one library, and there are 
also many public libraries. Thus, the three sources of saved workspaces 
are your own library, other users’ libraries and public libraries. 

Every workspace (except possibly your active workspace) has a 
name and every library has a number. To be able to use a workspace 
you must know both its name and its library number. For example, to 
be able to use a workspace called APLNEWS from library number 1, 
type 


)LOAD 1 APLNEWS 
The load command has the following effect: it wipes out your ac- 


tive workspace and then puts an exact copy of APLNEWS as your new 
active workspace. The “file drawer" copy of APLNEWS in library 1 is 


Workspaces 


]eft untouched, and what was in your active workspace before no longer 
exists (unless you previously made a copy of it someplace). 

If there turns out not to be a workspace in library 1 called APLNEWS 
the system will return the message 


WS NOT FOUND 


and there will be no change to your active workspace. 
When loading a workspace from your own library, it is not neces- 
sary to give a number. Simply type 


)LOAD MYSPACE 


and if you have a workspace named MYSPACE it will be loaded. 
То find out what workspaces there are in your library enter the 
command 


)LIB 
For a list of all the workspaces in public library N, enter 
)LIBN 


It is also possible, as has been mentioned, to use a workspace be- 
longing to another user. The number of the library in this case is the 
user's sign-on number (not including the lock, if there is one). However, 
you can not type 


)LIB 092773820 


and see all the workspaces belonging to 092773820, and 092773820 
cannot see the list of yours. 

There is another way to reference workspaces. You can copy all (or, 
as we will see later, part) of a workspace. When you execute the com- 
mand 


)СОРҮ 1 APLNEWS 


a copy is again made of that workspace, but it does not replace your 
active workspace; instead, it is added to whatever is already in your 
active workspace. Workspaces are limited in size, and if you begin copy- 
ing too many things into them, you run the risk of filling up your active 
workspace to capacity. If you do, the system will let you know: 


WS FULL 
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(Note: To be able to use a workspace you must know what is in it. A 
public library workspace should contain directions for its own use, but 
these аге no good unless you know how to find them. We will give you 
two "magic words" which will help you in your quest (they will be con- 
verted to “scientific formulae" later in the book, or you can investigate 
on your own). The magic words are )FNS and )VARS. If you type one 
of these after loading or copying a workspace, the system will respond 
by listing a lot of names. Most of them may seem meaningless. You will 
be looking for a name that sounds like it holds information about the 
workspace, like DESCRIBE or INFO or MANUAL. If you find one 
such, type it in and then follow the directions.) 

12-1. Find a printed list of the contents of all the public libraries which 
are in your computer. 

12-2. Isthere a public workspace which contains news about the system, 
such as the hours that APL is available or what to do if you have 
problems? If so, load it and find out what it has to say. 1f not, 
perhaps you can persuade your computer center to put one in. 

12-3. Find an interesting game in one of the public libraries and play it. 

12-4. Find a public library with some kind of teaching drill, such as for 
a science course or a foreign language or some complicated set of 
programs on the system. Try to use it. Do you like that kind of 
teaching? How could it be improved? 

12-5. Find a public library which has a drill on the APL operators. Pick 
an operator which we haven't yet discussed and see if you can 
deduce what it does by using the drill program. 

12-6. Try to get a workspace full error by copying many workspaces 
into your active workspace. You can find out how much space is 
left in your workspace by typing /-beam 22 as in Figure 12.1. 
When you get a workspace full error does this mean there is no 
more room? Can you still create variables or do arithmetic in a 
full workspace? Are all full workspaces equally full? 

12-7. In what units is I-beam 22 on your system? How many of them 
are there in a clear workspace? 

12-8. What information does the system give when a workspace is loaded 
or copied? 


SAVE 


To save a copy of your active workspace in your library you must first 
give it a name. A workspace name must start with an alphabetic charac- 
ter and may not contain any blanks; there is also a limit on the total 
number of characters, which may differ from system to system. To 


122 


FIGURE 12.1. І-Веат 22. 
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name the active workspace CRUNCH type 
)WSID CRUNCH 

WAS MYSPACE 


The message typed back indicates what the previous name of the work- 
space was. If it had no name, the message would have been 


WAS CLEAR WS 
To save the active workspace, type 
)SAVE 


The system will probably respond by giving the date and time. The ef- 
fect of the SAVE command is opposite to that of the LOAD command, 
A copy is made of the active workspace and stuck off in a file drawer 
under the name CRUNCH. You may then go on making changes to the 
active workspace, without affecting the saved copy of it in any way. 

Sometimes you will want to get rid of a workspace which has been 
saved. To do this, type 


)DROP CRUNCH 


to expurgate the saved copy of CRUNCH from the file drawer. This 
command has no effect on the active workspace, even if its name is also 
CRUNCH. 


EXERCISES 


12-9. Get a clear workspace, name it BILLS and assign to variable 
GAS the value 1. Save BILLS. Then perform the following steps: 
a. Assign to OIL and to GAS the value 2. 
Load BILLS, 
Find out the value of OIL and GAS. 
b. Assign to ОШ and GAS the value 3. 
Copy BILLS. 
Find out the value of OIL and GAS. 
с. Assign to OIL and GAS the value 3. 
Execute the command )PCOPY BILLS. 
Find out the value of OIL and GAS. 
What conclusions can you draw about the relative effects of 
LOAD, COPY, and PCOPY? 
12-10. Find out how to lock and unlock a workspace. 
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"introduce me, now there's a good fellow,” he said, 
"|f we happen to meet it together!” 

And the Bellman, sagaciously nodding his head, 
Said," That must depend on the weather.” 
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APL is a language. APL expressions which we type in at the terminal 
are like sentences and a program in APL is a paragraph made up of sen- 
tences. The program is a list of APL expressions and anything which 
can be entered at the terminal сап be рагі of a program. Ав part of а 
program, the APL expressions are not evaluated when you type them 
in. Instead, they are saved until you decide to use the program and then 
evaluated one at a time. 

Reading and writing, in APL as much as in any natural language, are 
complementary processes and we will learn about them together. 


READING A PROGRAM 


We will begin by reading the program in Figure 4.1. Notice first of all 
the small point-down triangles at the beginning and end. These dels in- 
dicate the beginning and the end of the program; they also tell the sys- 
tem that the expressions being entered are part of the program and not 
to be immediately evaluated. АП lines but the first are numbered, start- 
ing from 1; the unnumbered first line is referred to as line zero, or the 
header line. 

Line zero always contains the name of the program, in this case 
TEMP. When we type the name without the del the expressions on the 
lines are evaluated one after the other, starting with line 1; at this point 
they will be treated just as if they had been simply entered in at the 
terminal. So, consider line 1. This line contains nothing but a simple 
character vector. Had we typed this in at the terminal it would have 
been typed back to us, and so when we са! TEMP the first thing we 
should expect is to see the sentence THE TWELVE MONTHLY TEM- 
PERATURES WERE printed by APL. 

Line 2 contains a single name. This could be the name of a variable 
or of a program—we have no way of knowing. Until, that is, we look at 
lines 3-5. The symbol at the beginning of each line is called a lamp; it is 
the same symbol that we use to indicate a comment block in a structure 
chart and has the same function. APL ignores any line which begins 
with a lamp. Thus, these lines contain a message to the reader explain- 
ing what a particular part of the program is about. The program would 
run exactly the same without the comment, but might be much harder 
for us to understand. 

Line 6 prints another character vector and then on line 7 there is 
an arithmetic operation: the elements of TEMPERATURE are added 
together and the sum is divided by 12. Since the result is not assigned 
^» any variable, it will be printed too. Another character vector is 
printed on line 8 and then on line 9 a new symbol appears. Using the 
right-to-left rule we can understand part of that line: first the largest 
element of the vector TEMPERATURE is found and assigned to vari- 
able EXTREME, and then EXTREME is assigned to the box, called a 


[1] 
[21 
531 
[4j 
i5] 
[61 
[73 
[83 
[9] 
[10] 
[11] 
i12] 
[13] 
[1%] 
[153 
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TEMP 

'THE TWELVE MONTHLY TEMPERATURES WERE' 
TEMPERATURE 

L s TEMPERATURE IS А VECTOR ОР 
--THE AVERAGE MONTHLY TEMPERATURES 
FOR А YEAR 

'THE AVERAGE TEMPERATURE WAS) 
(+/TEMPERATURE ) +12 

'THE LARGEST TEMPERATURE WAS‘ 
Ü-EXTREME-T / TEMPERATURE 

"ІТ OCCURRED IN MONTHS‘ 

(EXTREME= TEMPERATURE) /112 

'THE SMALLEST TEMPERATURE WAS' 
O+EXTREME*| / TEMPERATURE 

'IT OCCURRED IN MONTHS' 

(ЕХТЕЕМЕ= TEMPERATURE) /112 


FIGURE 4.1. A program to read. 
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quad. As we know, when a quantity is assigned to a variable it will not 
be automatically printed back. Sometimes, however, we want to do 
both: print a value and assign it to a variable. The quad is a special sym- 
bot used for output and input: in this context it means that the value of 
variable EXTREME should be printed. 

The next line, line 10, shows another character vector, and then 
there is another arithmetic expression, involving compression. Its result, 
as you should check, will be the indices of those elements in the twelve 
element vector TEMPERATURE which are equal to the largest, EX- 
TREME. Then lines 8-11 are almost repeated in lines 12-15, where the 
smallest temperature is found. 

We should at this point, having read the program, be able to “аһ- 
stract it.” The program uses a vector TEMPERATURE, which must be 
defined outside the program. The program adds up the elements and 
divides the sum by 12, and then finds in turn the largest and smallest 
elements and their locations in the vector. 

Of course, the final judge as to whether or not we are correct in our 
reading is the computer, to whom all programs must be submitted, Fig- 
ure 4.2 shows a session at the computer with the program. The first 
time that the name TEMP was typed in, line 1 was executed but the 
machine was unable to execute line 2, as we had forgotten to give TEM- 
PERATURE a value. When an error occurs in running a program it is 
much like when ít occurs in a line that you type in: the error message is 
printed, followed by the offending line, and then APL gives an indica- 
tion of where the error was found. The program is not “gone” now, as 
an expression would be. The system remembers that the program exe- 
cution was suspended on line 2, and if we can correct the error we can 
go on from where we left off. 

Tn this case, to correct the error we have only to give a value to the 
vector TEMPERATURE, which is the next thing done in the figure. To 
resume execution of the program, we type a right-pointing arrow, 
pointing at the number of the line on which the program was inter- 
rupted (read this as “continue with line 2"). 

From here on the behavior of the program is as we expected. We 
might try again, because the more test cases we try, the more confi- 
dence we can have (actually, it is not so much the number of test cases 
but the number of cases that they test which is important). We thus 
define a new vector TEMPERATURE, and call TEMP again. And again, 
everything works as expected. 

А third test, in which all elements of TEMPERATURE are 100, does 
not fare so well. The program is interrupted at line 11 with a LENGTH 
ERROR. Before we look at line 11, however, look at the output which 
preceded it. The program says that the average value of the elements of 
TEMPERATURE is 91.66666667. But that is absurd: if there is one 


ТЕМР 
THE TWELVE MONTHLY TEMPERATURES WERE 
VALUE ERROR 
ТЕМРІ21 TEMPERATURE 
^ 
TEMPERATURE*21 20 33 45 53 72 71 72 62 51 38 20 
22 
21 20 33 45 53 72 71 72 62 51 38 20 
THE AVERAGE TEMPERATURE WAS 
46.5 
THE LARGEST TEMPERATURE WAS 
72 
IT OCCURRED IN MONTHS 
6 8 
THE SMALLEST TEMPERATURE WAS 
20 
IT OCCURRED IN MONTHS 
2.12 


TEMPERATURE«31 30 43 55 63 82 81 82 73 61 48 30 
TEMP 

THE TWELVE MONTHLY TEMPERATURES WERE 

31 30 43 55 63 82 81 82 73 61 48 30 

THE AVERAGE TEMPERATURE WAS 

56.58333333 

THE LARGEST TEMPERATURE WAS 

82 

IT OCCURRED IN MONTHS 

6 8 

THE SMALLEST TEMPERATURE WAS 

30 

IT OCCURRED IN MONTHS 

2 12 


TEMPERATURE+100 100 100 100 100 100 100 100 100 100 100 
TEMP 
THE TWELVE MONTHLY TEMPERATURES WERE 
100 100 100 100 100 100 100 100 100 100 100 
THE AVERAGE TEMPERATURE WAS 
91.66666667 
THE LARGEST TEMPERATURE WAS 
100 
IT OCCURRED IN MONTHS 
LENGTH ERROR 
TEMP[11] (EXTREME-TEMPERATURE) /112 
^ 
e TEMPERATURE 
11 
1100:12 
91,66666667 


FIGURE 4.2. Testing the program. 
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thing upon which we can depend it is that the average of а set of num- 
bers, all of them equal to 100, is 100. The conclusion which we must 
draw is that we cannot depend on what is printed by a program to be 
true! 

In this case the two errors, the one that APL caught and the one 
that we caught, are related. The LENGTH ERROR in line 11 indicates 
that the two arguments to the compression operator have different 
lengths: since the right hand argument has size 12, the first thing we 
should check is that TEMPERATURE may not have 12 elements. In- 
deed, as the next line of the figure shows, it has only 11. This might 
also explain the incorrect average: (11 X 100) + 12 is 91.66666667. 

Since we only want our program to work for correct vectors TEM- 
PERATURE, our first thought might be that it is all right if a bad vec- 
tor causes the program to stop in this way. But actually, it is not. A 
program should never have an error in it, This goal may be impossible 
to realize, but we can at least never leave in an error that we know 
about. Our next step, therefore, is to correct our program. 


EXERCISES 


4-1. If, as we said, anything which can be entered as an APL expres- 
sion directly can be put as a line of a program, it is not unreason- 
able to expect the opposite as well. Verify that every single line 
of the program TEMP can be entered directly to the terminal and 
that the same results will ensue as when they are executed as lines 
of the program. 

4-2. Verify that the expressions in Figure 4.3 have the same effect. 

4-3. List some different ways you might want to correct the error in 
the program. Sometimes a program you write will only be used by 
you and sometimes you will make it available to others. Evalu- 
ate each of your proposed corrections in each of these lights. Do 
not ignore the possibility that you may originally intend not to 
make a program available to others, and much later change your 
mind. 

4-4. Reconsider Exercise 4-3 in case the program is part of a system 
for controlling airplanes at a large airport. 


CORRECTING AND WRITING PROGRAMS 


Of the many ways in which we could correct this program, one of the 
most reasonable is to modify it so that it will work for any size vector. 
To do this, we need only replace the twelves on lines 7, 11, and 15 by 
an expression giving the size of TEMPERATURE. The terminal session 
showing how these corrections are made is given in Figure 4.4. 


П«ЕХТРЕМЕ«І / TEMPERATURE 
EXTREME«U«[ /TEMPERATURE 


FIGURE 4.3. Two equivalent expressions. 
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V TEMP 
L7 J (+ / TEMPERATURE ) +p TEMPERATURE 
[70] 
(+/ TEMPERATURE) +p TEMPERATURE 
[11018] 
(EXTREME-TEMPERATURE) /112 
// 

(EXTREME=TEMPERATURE ) / yTEMPERATURE 
[15021] 
(EXTREMESTEMPERATURE) /112 

з // 
и а )/\p TEMPERATURE 
[15 
(ЕХТВЕМЕ= TEMPERATURE) / AV TEMPERATURE 
ІШІ 
ТЕМР 
'THE TWELVE MONTHLY TEMPERATURES МЕРЕ" 
TEMPERATURE 
a----- TEMPERATURE IS A VECTOR OF 
--THE AVERAGE MONTHLY TEMPERATURES 
FOR A YEAR 
'THE AVERAGE TEMPERATURE WAS' 
(+/TEMPERATURE ) +p TEMPERATURE 
'THE LARGEST TEMPERATURE WAS' 
О<ЕХТКЕМЕ<[ /TEMPERATURE 
"ІТ OCCURRED IN MONTHS’ 
(ЕХТЕЕМЕ= TEMPERATURE ) / Vp TEMPERATURE 
'THE SMALLEST TEMPERATURE WAS' 
O+BXTREME+L / TEMPERATURE 
"ІТ OCCURRED IN MONTHS‘ 
(EXTREME-TEMPERATURE) / yo TEMPERATURE 


У 


FIGURE 4.4. Correcting the program. 
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We will use different techniques to correct the lines. First we indi- 
cate to APL that we wish to make corrections to the program by typing 
the del and then the program name. The program responds by asking 
for the next line of the program; since we have not told it otherwise, it 
assumes we wish to add lines to the program. Instead we type line 7 in 
brackets and follow it by the corrected version of the line. To check 
that we made no typing errors, we can ask to see line 7 displayed by 
typing, inside the square brackets, a 7 followed by the quad symbol. 

Sometimes when fixing one mistake on a line we will make a dif- 
ferent mistake, and it is therefore advisable to do as little typing as pos- 
sible. APL provides us with a very efficient mechanism for making cor- 
rections. We type the line number we wish to change, followed by a 
quad, followed by another number, which is our estimate of where the 
first character we wish to correct is—this estimate need not be at all 
accurate. In the figure, our estimate was 18: the response of the system 
was to type the line, then skip a line and space in 18 spaces. We can 
now give APL directions of two types, after which it will retype the 
line. If we type a slash under a character, that character will be deleted; 
if we type a number under a character that character will be preceded 
by that number of spaces. (Note that we can do all the spacing and 
backspacing we want. One rule of APL that is not usually written down 
is that what is entered into the machine is the line as you see it and the 
order in which you type the characters does not matter.) When we are 
correcting at the very end of a line we don't need to indicate a number 
of spaces. 

The response of the system is to retype the line with the deletions 
and spaces as indicated, and then position the typing element under the 
first space which was added (or at the end of the line if no spaces were 
added). We can make any additions we want in the spaces or at the end 
of the line and what we see when we hit return is the line that the ma- 
chine will use in the program. We repeat the same correction technique 
for line 15. (Note that superfluous blanks are not retained.) 

Before we type a del to indicate that we are through changing the 
program, it is wise to read it once more. To do this, we would probably 
like a clean listing of the program, which we can get by typing a quad 
all by itself, in brackets. We should ask ourselves, what could we do 
now to make the program fail? We are asking for the size of the vector 
TEMPERATURE: suppose that TEMPERATURE is not a vector. Sure- 
ly, the result will be strange. If TEMPERATURE is supposed to be а 
vector, we can ensure that it is one by using the monadic operator 
ravel (a comma); the expression in Figure 4.5 makes a vector from 
TEMPERATURE. Of course, if TEMPERATURE was already a vector, 
this has no effect. We can add this to line 2, but before we make more 
changes, let's consider what else could go wrong. As we read the pro- 
gram, we see that it will always say that there are 12 temperatures, 
even though all the changes we have been making have been to correct 


TEMPERATURE+,TEMPERATURE 


FIGURE 4.5. Raveling a variable. 
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for the possibility that there will not always be 12. It would be reason- 
able to have the program be as truthful as possible. We would therefore 
like line 1 to print the actual number of elements in TEMPERATURE. 
To print characters and numbers on the same line, we must separate 
them by semicolons. It is almost like concatenating the numbers and 
characters, but that is something we cannot do. 

We might, therefore, want to replace line 1 with Figure 4.6; then 
we һауе no need to make any changes to line 2, This version of the pro- 
gram is shown in Figure 4.7 and is the one we will continue working 
with. 

We could, however, put a line ahead of line 1 to make TEMPERA- 
TURE a vector. We cannot make this line 0, since that is reserved for 
the name of the program. We can, however, add lines between 0 and 1; 
these would be decimal numbered, such as 0.1, 0.00023, etc. The 
terminal session showing these corrections to the program is given in 
Figure 4.8 as a continuation to Figure 4.4. Note that to get a listing 
we first closed definition mode and then opened it again. After insert- 
ing decimal numbered lines, when you close definition mode the lines 
are automatically renumbered as 1, 2, 3, etc. 

We have not yet said anything about how the program TEMP can 
be created. One of the beauties of APL is that creating (or entering) a 
program is extremely easy. First type a del followed by the name of the 
program and hit return. You are now in definition mode: the system 
prints 


[1] 


and expects you to enter the first line of the program. After that it 
prints 


[2] 


for the second line and so on. Once you are in definition mode, you can 
add and change (and delete—see Exercise 4-11) lines at will. When you 
are done, type a del to leave definition mode. 


EXERCISES 


4-5. Verify the rule that the order of typing things in a line does not 
matter. You might enter a line such as (three spaces), 7, (two 
backspaces), *, (two backspaces), 9, (return). 

4-6. Find out the order in which elements of an array are taken when 
it is raveled and made into a vector. 


'THE ';oTEMPERATURE+,TEMPERATURE;' MONTHLY TEMPERATURES БЕРЕ" 


FIGURE 4.6. Mixed output. 


v TEMP 


[13 
121 
[3] 
[u] 
151 
Се) 
171 
L8] 
[91 
1191 
[11] 
1121 
1131 
[15] 
(151 
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'THE ';pTEMPERATURE- TEMPERATURE ;' MONTHLY TEMPERATURES МЕНЕ" 
TEMPERATURE 

&-----TEMPERATURE IS A VECTOR ОР 

---THE AVERAGE MONTHLY TEMPERATURES 
a-- FOR A YEAR 

'THE AVERAGE TEMPERATURE WAS" 

(*/ PEMPERATURE) tp TEMPERATURE. 

'THE LARGEST TEMPERATURE WAS' 
D+EXTREME+[ / TEMPERATURE 

"ІТ OCCURRED IN MONTHS* 
(EXTREME-TEMPERATURE ) / X TEMPERATURE. 

'THE SMALLEST TEMPERATURE WAS‘ 
O+EXTREME+L| / TEMPERATURE. 

"ІТ OCCURRED IN MONTHS" 

( EXTREME=T EMPERATURE) / Ap TEMPERATURE 


FIGURE 4.7. The pragram with revisions. 
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9 ТЕМР 
[0.5JTEMPERATURE+,TEMPERATURE 


[0.6] [1] 'THE ';opTEMPERATURE;' MONTHLY TEMPERATURES WERE* 


121 


[13 
[21 
133 
141 
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v 


V 

vTEMPLOI 

TEMP 

TEMPERATURE* , TEMPERATURE 

‘THE ';9 TEMPERATURE ;* MONTHLY TEMPERATURES WERE‘ 
TEMPERATURE 

TEMPERATURE IS A VECTOR OF 

THE AVERAGE MONTHLY TEMPERATURES 
-FOR A YEAR 

'THE AVERAGE TEMPERATURE WAS" 

(+ / TEMPERATURE) 5p TEMPERATURE 

'THE LARGEST TEMPERATURE WAS' 
П<ЕХТВЕМЕ-І / TEMPERATURE 

“ІТ OCCURRED IN MONTHS* 
(EXTREME-TEMPERATURE) / 1р TEMPERATURE 
'THE SMALLEST TEMPERATURE WAS* 
O+BXTREME*| / TEMPERATURE 

"ІТ OCCURRED IN MONTHS" 
(EXTREMEZTEMPERATURE ) / 1p TEMPERATURE 


FIGURE 4.8. Alternate corrections. 
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4-7. Are the results of the two expressions in Figure 4.9 the same for 
any variable WAGES? If so, for which ones? 

4-8. Makea copy of the program TEMP from Figure 4.7. To begin, type 
а del followed by the name of the program and then return. The 
system will ask for line 1, and when that is entered, line 2 and so 
on. When you are done, type a del to leave definition mode. 

4-9. Write and run a program to count and print the number of ‘E’s 
in a character vector STRING. 

4-10. Modify the program written in Exercise 4-9 so that it counts and 
prints the number of vowels in STRING. 

4-11. To delete a line of a program, enter definition mode, type the 
number of the line in brackets, hit attention and then immedi- 
ately hit return. Practice adding and deleting lines in some pro- 
gram. What happens if you space once before hitting RETURN? 

4-12. In Figure 4.7, since TEMPERATURE may not have size 12,it 
may not represent a year. Correct the comment. 

4-13. When correcting a line, what would happen if you unintention- 
ally type а “В? over a plus sign? Does the same thing happen for 
all unintentional overstrikes? 


INPUT 


While we may feel fairly confident that we have eliminated all the errors 
from the program, we still cannot say that it will always run without 
errors. The user of the program must remember to give a value to TEM- 
PERATURE before running TEMP. The most efficient way to elimi- 
nate this source of error would be to have the program itself ensure that 
TEMPERATURE gets a value. 

We cannot, unfortunately, have the program detect whether or not 
a value has been assigned to TEMPERATURE, for in doing so it would 
have to examine TEMPERATURE and would again run the risk of a 
value error. What we can do is make the assignment of a value to TEM- 
PERATURE a necessary part of running the program. One way to do 
this is to have the program ask for the value of TEMPERATURE. The 
quad, which we have used for output to the terminal, can also be used 
to get input from the terminal. If we simply type a quad we can see the 
way it functions in getting input from Figure 4.10. 

When APL sees a quad without an assignment arrow pointing into 
it, it proceeds to ask for input from the terminal. It prints a quad fol- 
lowed by a colon and uses the value or expression which is typed in as 
the value for the quad. In the example in Figure 4.10, after the vector 
1 2 3 had been entered it was as if that vector had been typed origi- 
nally, instead of the quad. Since there was no assignment of the quad to 
some variable, the value was printed. 


WAGES 
(10) , WAGES 


FIGURE 4.9. Are these equivalent? 


D 
0: 

123 
123 


FIGURE 4.10. Input with а quad. 
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For a slightly more complicated example, consider Figure 4.11. 

“There are two requests for input. The first is the rightmost. In re- 
sponding to it we entered a valid APL expression which also assigned a 
value to V, so that. when, proceeding from right to left, APL needed to 
find the value of V, it had already been assigned. 

Returning to our program, we could have it request a value for 
TEMPERATURE with a statement like the one in Figure 4.12, Before 
adding this in, however, we look at the program again. In line 1 we have 
to ravel TEMPERATURE. Instead of this, we could simply ravel the in- 
put as soon as we get it (see Figure 4.13). Whenever we ask for input, 
we should have the program explain exactly what it is asking for. So, 
before the line which asks for input we would put a statement which 
would print a message explaining what sort of input is wanted. Note 
that we would probably go along with our original intention and have 
the program ask for a vector of 12 temperatures; however, our program 
is still protected no matter what the user actually enters. 

И seems at this point that we will have to enter two new lines ahead 
of the ones we already have. While this simple step would certainly be 
acceptable, we will be a little fancier to illustrate a point about APL in- 
put and output. When APL has to print a line, it must first evaluate the 
entire line. Thus, in line 1 of Figure 4.7, APL does not first print the 
rightmost part of the line and then find the size of TEMPERATURE 
and so on. Just the opposite: it proceeds right to left evaluating every 
part of the line and building up an “image” of the line. Only when the 
image is complete is it printed. It follows from this that if there is a re- 
quest for input on a line to be printed, the request for input will come 
before there is any printing. 


О: 

з + 1+2 
0: 

1 
m 


FIGURE 4.11. Input within an expression. 


TEMPERATURE+Q 


FIGURE 4.12. A proposed modification, 


TEMPERATURE+,0 


FIGURE 4.13. A better modification. 
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Consider therefore Figure 4.14, which shows a program and then a 
sample execution. When line 1 is executed the request is printed. When 
line 2 is executed, before anything can be printed, every expression on 
the line must be evaluated. Thus, the user at the terminal sees next a re- 
quest for input, followed by the printing of the message on line 2 and 
then the rest of the program execution as before. 


EXERCISES 


4-14. Why can't the quad come on the same line as the message which 
asks for the 12 monthly temperatures? 

4-15. When APL sees a quad, how does it know whether it is for input 
or for output? 

4-16. What happens if you make an error in entering input? Try mak- 
ing VALUE ERRORS, DOMAIN ERRORS, and SYNTAX 
ERRORS. 


9 ТЕМРІП19 
V TEMP 


111 'PLEASE ENTER А VECTOR ОР 12 MONTHLY TEMPERATURES' 
[21 'THE ';pTEMPERATURE-,(;' MONTHLY TEMPERATURES НЕВЕ’ 


[31 TEMPERATURE 


197 -TEMPERATURE IS А VECTOR OF 
Cs] a THE AVERAGE MONTHLY TEMPERATURES 
Ce] --FOR A YEAR 


t7] 'THE AVERAGE TEMPERATURE WAS' 

L81 (+ / TEMPERATURE) sp TEMPERATURE 

(91 "THE LARGEST TEMPERATURE WAS' 

(101 D<EXTREME+Í / TEMPERATURE 

[11] “ІТ OCCURRED IN MONTHS" 

[12] (EXTREME-TEMPERATURE) /Ap TEMPERATURE 
[13] 'THE SMALLEST TEMPERATURE WAS' 

L14] DeEXTREME*-L /TEMPERATURE 

[15] “ІТ OCCURRED IN MONTHS’ 

[16] (EXTREMEsTEMPERATURE) / Vp TEMPERATURE 


TEMP 
PLEASE ENTER 4 VECTOR OF 12 MONTHLY TEMPERATURES 
D: 


12345678 9 10 11 12 
THE 12 MONTHLY TEMPERATURES WERE 
12 34 5 6 7 8 9 10 11 12 
THE AVERAGE TEMPERATURE WAS 
6,5 
THE LARGEST TEMPERATURE WAS 
12 
IT OCCURRED IN MONTHS 
12 
THE SMALLEST TEMPERATURE WAS 


1 
IT OCCURRED IN MONTHS 
1 


FIGURE 4.14. A program which requests input. 
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PROGRAMS WITH ARGUMENTS 


We can fix the program in Figure 4.7 in a different way to ensure that 
TEMPERATURE gets a value. In a sense, this program is like a monadic 
APL operator. It is of course very different from an operator in that 
it produces no value and just does a lot of printing, but there is a simi- 
larity in that TEMPERATURE resembles an argument to the program. 
In fact, APL gives us a mechanism for making this similarity precise. We 
can define the program in such a way that after typing the name we 
also type an argument. For example, see the output in Figure 4.15. 


TEMP 1235 5 6 7 8 9 10 11 12 
THE 12 MONTHLY TEMPERATURES WERE 
1 2 3 4 5 6 7 8 9 10 11 12 
THE AVERAGE TEMPERATURE WAS 
6.5 
THE LARGEST TEMPERATURE WAS 
12 
IT OCCURRED IN MONTHS 
12 
THE SMALLEST TEMPERATURE WAS 
1 


IT OCCURRED IN MONTHS 
1 
TEMP 3+5х19 
THE 9 MONTHLY TEMPERATURES WERE 
8 13 18 23 28 33 38 43 48 
THE AVERAGE TEMPERATURE WAS 
28 
THE LARGEST TEMPERATURE WAS 
48 
IT OCCURRED IN MONTHS 
9 
THE SMALLEST TEMPERATURE VAS 
8 
IT OCCURRED IN MONTHS 
1 


FIGURE 4.15. Running а function. 
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Whatever we type after the name TEMP is taken by the program to 
be the value of TEMPERATURE. In Figure 4.16 we show a program 
being changed to function in this manner and then a listing of the pro- 
gram. 

When we make this change, TEMPERATURE acquires a very spe- 
cial property. There is really no variable named TEMPERATURE-it is 
a dummy name. One way to see this is to copy the program into a clear 
workspace and then invoke it, as in Figure 4.17. After the program 
finishes, try to find the values of EXTREME and TEMPERATURE. 
There will be a value for EXTREME; it is a variable created during the 
running of the program. But there will be no value for TEMPERA- 
TURE. TEMPERATURE is like the x in an equation. TEMPERATURE 
is just the name which you give to the argument to make it easy for you 
to write the program. In fact, you might try reading the program like 
this: 


line 1: ‘THE’; size of the argument (which gets made into a vector); 


‘MONTHLY TEMPERATURES WERE’ 
line 2: print the argument 


line 7: print the sum of the elements in the argument, divided by 
the size of the argument 


and so on. 


%ТЕМРІ9001 


[0] TEMP 
[0] TEMP TEMPERATURE 
t1) (DJ 


v TEMP TEMPERATURE 
(1) ‘THE ';РТЕМРЕВАТИКЕ+ TEMPERATURE ;' MONTHLY TEMPERATURES WERE‘ 
[23 TEMPERATURE 
137 R-----TEMPERATURE IS A VECTOR OF 
ta) THE AVERAGE MONTHLY TEMPERATURES 
[51 --FOR А YEAR 
[61 "THE AVERAGE TEMPERATURE WAS" 
[73 (+/ТЕМРЕВАТИВЕ) + р TEMPERATURE 
[8] 'THE LARGEST TEMPERATURE НАБ’ 
[92 0+ЕХТВЕМЕ+[ / TEMPERATURE 
[10] “ІТ OCCURRED ТИ MONTHS" 
[11] (EXTREME-TEMPERATURE) / A TEMPERATURE 
(121 'PHE SMALLEST TEMPERATURE WAS‘ 
1131 O+SXTREME+{ /TEMPERATURE 
[18] 'IT OCCURRED IN MONTHS' 
[15] (EXTREME-TEMPERATURE) / Vp TEMPERATURE 
v 


FIGURE 4.16. А program which accepts an argument. 


TEMP 112 
THE 12 MONTHLY TEMPERATURES WERE 
1.2 3 8 5 6 7 8 9 10 11 12 
THE AVERAGE TEMPERATURE WAS 


6.5 
THE LARGEST TEMPERATURE WAS 
12 
IT OCCURRED IN MONTHS 
12 
THE SMALLEST TEMPERATURE WAS 
1 
IT OCCURRED IN MONTHS 
1 
EXTREME 
1 
TEMPERATURE 
VALUE ERROR 
TEMPERATURE 


^ 


FIGURE 4.17. The argument is a dummy name. 
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In fact, this is the way that APL reads the program when it is exe- 
cuting it. Another way to see the special status of the variable is to as- 
sign a value to TEMPERATURE, as in Figure 4.18, and then to invoke 
the program with some different argument. After the program is fin- 
ished, variable TEMPERATURE is still the original array; it has not 
even been raveled. 

We say that the argument of the program is a local variable—it only 
exists while the program is being run, and if there is another variable 
with the same name, that variable is protected while the program is 
running so that after program execution its value will have been un- 
changed. 

We can make other variables local to the program if we wish. In 
this case, the only other variable in the program is EXTREME. We 
write the name of the variable after a semicolon on line 0, as in Figure 
4.19. If there were another variable we wanted to localize, we would 
write it after a semicolon after EXTREME and so on. 

We should make every variable which is only used in one program 
local to that program. There are two reasons for this. First of all, when 
programs become more complicated, and when there are many of them, 
we would otherwise have to constantly be keeping track of variable 
names to make sure that we didn't accidentally modify a variable being 
used in program A when running program B. Secondly, it makes it 
much easier to read a program if we can see at the beginning which var- 
iables are used only within it. We then know that these variables are not 
going to have values assigned to them outside the program, and that the 
other variables we see do need to have values assigned before we run the 
program. 


TEMPERATURE+(3,3)p19 


TEMP 246824682468 
THE 12 MONTHLY TEMPERATURES WERE 
24 6 8 2 4 6 8 2 4 6 8 
THE AVERAGE TEMPERATURE WAS 
5 
THE LARGEST TEMPERATURE WAS 
8 
IT OCCURRED IN MONTHS 
^ 8 12 
THE SMALLEST TEMPERATURE WAS 
2 
IT OCCURRED IN MONTHS 


1. 8 9 
TEMPERATURE 
$1 ^9 
4 5 6 
7 8 9 


FIGURE 4.18. The argument is a local variable, 


VTEMP TEMPERATURE ; EXTREME 


FIGURE 4.19. Localizing a variable. 
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Just as operators can have one or two arguments, so can programs. 
For example, we might want to be able to have the program print out 
the name of the month associated with the first temperature in the 
vector—a datum which we would have to supply. À program which per- 
mits this and a sample run are shown in Figure 4.20. 


EXERCISES 


4-17. Make EXTREME local to the program of Figure 4.16 and verify 
that it has the stated properties. 

4-18. In Figure 4.20, why isn't it necessary to separate MONTH in line 
1 by semicolons? 

4-19. What happens if the program in Figure 4.20 is run and МОМТН 
has a numeric value? 

4-20. Correct the program in Figure 4.20 so that no error will result if 
MONTH is not a vector or scalar. 


DEALING WITH ERRORS 


If it is true that anything which is legal as an APL expression is legal 
as a line of a program, then it follows that an invocation of a program 
is legal as a line of another program. The ability to invoke programs 
within other programs is one of the most important in computer pro- 
gramming. Among other things, it allows us to develop a collection of 
routines which we might want to use for a variety of purposes, with- 
out having to rewrite them for each new use. We will be introducing 
a number of such programs, which we will call utility programs, dur- 
ing the course of this book. It is never necessary to use these programs. 
The statements they contain could always be included directly in your 
program. However, we fee] that a small collection of such routines is 
immensely valuable and contributes strongly to the ultimate goal of 
writing programs that do what they are supposed to do. 

One such program is the program ERROR, which is listed in Ap- 
pendix Four. ERROR is a two argument program. the left argument is a 
character string and the right argument is numeric, with value 0 or 1. If 
the right-hand argument is а 0, the program will appear to do nothing, 
while if the right-hand argument is a 1, the program will print its left- 
hand argument, and then stop execution of all programs (that is, both 
itself and the program that invoked it, and, if there was one, the pro- 
gram that invoked it, and so on). 

As a possible use of the program ERROR, consider Figure 4.20. If 
the argument MONTH is not a character string, there will be an error 
detected on line 1. While we could correct the program directly in this 


9ТЕМРІПІУ 
V MONTH TEMP TEMPERATURE ; EXTREME 
(11 ‘STARTING IN ',MONTE 
[2] ‘THE ';pTEMPERATURE* TEMPERATURE ;' MONTHLY TEMPERATURES WERE' 
£3] TEMPERATURE 


[s] ТЕМРЕНАТИНЕ IS А VECTOR OF 
[5] THE AVERAGE MONTHLY TEMPERATURES 
[6] -FOR А YEAR 


[7] 'THE AVERAGE TEMPERATURE WAS' 

[8] (+ / TEMPERATURE) tp TEMPERATURE 

[9J "ТНЕ LARGEST TEMPERATURE WAS‘ 

1101 П«ЕХТКЕМЕФГ / TEMPERATURE 

[11] “ІТ OCCURRED IN MONTHS' 

[12] (EXTREME-TEMPERATURE) / y TEMPERATURE 
[13] "ТЛЕ SMALLEST TEMPERATURE WAS* 

[14] 0+ЕХТВЕМЕ<| /TEMPERATURE 

[15] "17 OCCURRED IN MONTHS" 

[16] (EXTREME-TEMPERATURE) / ApTEMPERATURE 


'MARCH' TEMP 33 45 48 63 69 71 74 84 72 
STARTING IN MARCH 
THE 9 MONTHLY TEMPERATURES WERE 
33 45 #8 63 69 71 7% 8% 72 
THE AVERAGE TEMPERATURE WAS 
62.11111111 
THE LARGEST TEMPERATURE WAS 
Bu 
IT OCCURRED IN MONTHS 
8 
THE SMALLEST TEMPERATURE WAS 
33 
IT OCCURRED IN MONTHS 
1 


ҒІСОНЕ 4.20. А program with two arguments. 
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case, by replacing the comma with a semicolon, we should ask if that is 
a realistic solution. If the left-hand argument is not a character string, it 
is certainly not the name of a month, so that the user has surely made 
some kind of error. It would probably be kinder to the user (who might 
be yourself) to indicate that an error has been made, rather than to 
permit something like 


THE 5 MONTHLY TEMPERATURES STARTING IN 71 78 81 89 
93 WERE MARCH 


to happen. 

We use ERROR by giving as its right-hand argument an expression 
which has value 1 if there is an error and value 0 if there is no error. 
The left-hand argument should be a message explaining what the error 
is and where it occurred. 

We know from Chapter 3 that if a variable S has a numeric value 
then the expression in Figure 4.21 has value 1, and that its value is 0 
if S is a character variable. Line 1 of Figure 4.22 then will stop the pro- 
gram and print an error message if MONTH is not character-valued. 
Line 2 will stop the program and print an appropriate message if MONTH 
is not a vector or scalar. 


EXERCISES 


4-21. Modify Figure 4.22 so that it will only run through to comple- 
tion if TEMPERATURE is a numeric vector with 12 elements. 
Test your modifications. 

4-22. Write a program called CHARACTER. CHARACTER should 
take one argument, returning a 1 if the argument is character- 
valued and 0 if the argument is numeric. Test your program for 
scalars, vectors and arrays. 

4-23. We can cause a program to print the value of an expression by 
having that expression be a line of the program. Or we could as- 
sign the expression to a quad. Discuss the advantages to someone 
reading a program of adopting one of these as a standard form. 
Discuss the advantages of adopting no standard form. 

4-24. When we enter character data to an input request we must place 
it in quote marks just as with any other use of character data. 
However, there is a special feature which allows us to enter the 
data without using the quotes: this is the quote-quad shown in 
Figure 4.23A. When quote-quad is used for input, the system 
does not print the quad to tell you it wants you to type some- 
thing; it just moves to the next line and waits. Quad and quote- 
quad character input are illustrated in parts B and C of the figure. 


0є0\0/5 


FIGURE 4.21. Is S numeric or character? 


9 TEMPLON 
9 MONTH TEMP TEMPERATURE EXTREME 
(11 'TEMP:ARGUMENT NOT CHARACTER ' ERROR 0€0\0/MONTH 
(23 'TEMP:CHARACTER ARGUMENT WAS ARRAY ' ERROR(1«ppMONTH) 
131 ‘STARTING IN ',MONTH 
181 ‘THE ' ;oTEMPERATURE*- , TEMPERATURE ;' MONTHLY TEMPERATURES WERE" 
(5J TEMPERATURE 


16) TEMPERATURE IS А VECTOR ОР 
[7] -THE AVERAGE MONTHLY TEMPERATURES 
[87 A ---FOR A YEAR 


[9j 'THE AVERAGE TEMPERATURE WAS* 

(101 (*/TEMPERATURE) p TEMPERATURE 

1112 'THE LARGEST TEMPERATURE НАЗ’ 

[12] П+ЕХТЕЕМЕ+[ / TEMPERATURE 

[13] 'IT OCCURRED IN MONTHS" 

[14] (EXTREME-TEMPERATURE) / Vo TEMPERATURE 

[15] ‘THE SMALLEST TEMPERATURE WAS* 

(161 Ц+ЕХТРЕМЕ+| / TEMPERATURE 

{171 'IT OCCURRED IN MONTHS* 

(181 (EXTREME-TEMPERATURE) /Ap TEMPERATURE 
v 


FIGURE 4.22. Protecting against two types of error. 


4) 


B) 
INPUT- 
D: 
' HELLO' 
INPUT 
HELLO 


c) 
Inpur+Q 
HELLO 
INPUT 
HELLO 


FIGURE 4.23. Quote-quad input. 
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4-25. 


4-26. 


Revise Figure 4.22 во that it uses quote-quad input to get the 
name of the month. What are the advantages and disadvantages 
of there not being any indication that the system is waiting for 
input? 

Sometimes when input is being requested, you would prefer to 
stop the program and not give any input. With quad input you 
can stop the program by typing a right-pointing arrow. With 
quote-quad input you must type an O followed by a backspace 
followed by a U followed by a backspace followed by a T. What 
happens if you use the arrow with quote-quad input, or the 
O-U-T with quad input? 

When we edit a line of a program, besides typing numbers 0-9 
beneath letters to indicate that spaces should be inserted, we also 
have the option of typing characters; A, B, C, and so on. Find 
out how many spaces each of these characters indicates. 


5 


IF Statements — 
Checking Out Books 


* ‘Tis the voice of the Jubjub!"' he suddenly cried. 
(This man, that they used to call “Dunce.’’) 

“As the Bellman would tell you,“ he added with pride, 
“4 have uttered that sentiment once. 


* “Tis the note of the Jubjub! Keep count, | entreat; 
You will find | have told it you twice. 

“Ті the voice of the Jubjub! The proof is complete, 
If only I've stated it thrice.” 
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Many libraries, especially those in universities, are beginning to comput- 
erize their operations. Use of the computer has a number of benefits: 
the vast amounts of recordkeeping needed to keep track of hundreds of 
thousands of books is all kept up to date by the computer, which can 
then provide accurate information to the library staff or to library users 
about books which have been checked out. At the same time, the com- 
puter can also keep track of users: reminding them when books are 
about to become due, sending out fine notices or preparing letters 
thanking them for always returning their books on time. To examine 
all the facets of library organization would take us considerably out of 
our way; here we will just look at what might happen at one small but 
critical point in the system—the checkout desk. 


STRUCTURING DECISIONS 


А borrower comes up to the checkout desk, books in hand. The librari- 
an enters the number of books onto a little computer terminal and 
feeds the borrower's identification card into a slot in the side of the 
machine. The machine responds by telling the librarian how many 
books this borrower may indeed take out, and for how many days. 

Faculty members, whose identification numbers begin with an F, 
may take out any number of books at a time and have 200 days to re- 
turn them. Students, whose numbers begin with R (for residential) or 
O (for off-campus), may take only six books at a time, and these for 
only 30 days. 

It is not our concern how the information from the identification 
cards gets from the little slot to the program or how the program be- 
comes activated at the proper time. Certainly, before the checkout desk 
program was put into the system it would be tested extensively in iso- 
lation from the system, and we will take it only that far. 

Let's try to get an idea of what is involved in this program. First we 
look at the identification number. The library is concerned about theft, 
especially of rare books, so we must scrutinize the number carefully. It 
should begin with a letter—F, R, or O—and then should have six digits. 
If someone tries to use an invalid card, or if the librarian inserts the 
card into the slot upside down, it will not meet these criteria and we 
can reject it. 

Once we know the number is valid, we should look at the number 
of books as entered by the librarian. This must certainly be a positive 
integer—anything else is surely a typing error and should be reported as 
such. 

Only now, with data we know to be valid, are we ready to act. For 
a faculty card we need only print out some such message as “These 
books are due in 200 days." For a student card, though, the situation is 
a bit more complicated: we must again print out the number of days 
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the books may be borrowed, but must also indicate whether this patron 
is trying to borrow too many books. These considerations are all ex- 
pressed in the structure chart in Figure 5.1, 

It isn't hard to see how each box in the structure chart could be 
turned into an APL expression. But if we were simply to place these 
instructions one after another in a program we would surely not get the 
right results. The structure chart is two-dimensional: sometimes we do 
one thing and sometimes another and this is indicated by the way that 
things are placed on the page. We do not have the same freedom in plac- 
ing lines in an APL program; they must be listed one below another. We 
therefore need some way to control the order in which the lines are per- 
formed. Depending on the data, we will sometimes want to execute this 
line, sometimes that one. This will require the ability to selectively skip 
over some statements as directed by the data. 

Notice that if we are going to be able to selectively choose state- 
ments, we must have a way to refer to them. One way to refer to them 
is the line number, but this is not very reliable. If we add or remove 
lines from the program the numbers of the other lines will change, so 
that it will always be difficult to ensure that references to lines are cor- 
rect. Instead, we can give a label to any line we wish to refer to. Such a 
labeled line is shown in Figure 5.2. The label appears at the beginning 
of the line and is separated from the actual APL expression by a colon. 
Тһе label is treated just like any other name іп APL; for example, a 
name which is used as a label cannot be used anyplace else in the pro- 
gram as a variable. In fact, labels are treated as local variables, although 
they need not (and should not) be listed on line 0. 

Now, how can we actually control the way that lines are executed? 
The mechanism that APL uses is natural and corresponds to the way 
that we do many similar tasks ourselves. First of all, when one APL line 
is done, the one which is usually done next is the next-numbered line. 
We saw this in the previous chapter where we were not controlling the 
way that lines were performed at all. What АРІ, provides us with is а 
mechanism for saying “after this line, instead of the next-numbered line 
do line X instead.” In fact, we will be able to say such things as “after 
this line, if such and such is true, then do line X, but otherwise just do 
the next-numbered line.” 

Before we get into this, let’s look at the other extreme and see how 
we could write “do the next-numbered line” explicitly. It seems silly to 
do this, since we don’t really have to do anything to get the next-num- 
bered line performed next, but APL provides us with a way to say it— 
and it will in fact turn out to be quite important to be able to do so, 
Figure 5.3A shows one way: it is read “branch to iota zero" and is just 
a very fancy way of saying “о nothing.” 

We could actually do something on a line and also say “do the next- 
numbered line” explicitly. Figure 5.3B gives an example. By the right- 
to-left rule, the first thing that happens is that HOURS is incremented 


Check length of identification number 


Check first letter 


Check remaining numbers 


Check number of books borrowed 


Is first letter ‘F?’ 
* 


A Then it must be an ‘R’ or ‘О’ 


"These books are due in 30 days’ 


"These books are due in 
200 days." 


Is number of books «6 


no 


*But you can 
only borrow 6 
of them’ 


FIGURE 5.1. At the checkout desk. 


DEDUCTIONS:MEDICAL + DOCTOR + HOSPITAL 


FIGURE 5.2. A labeled line. 


4) 
+10 


В) 
+1 (OxHOURS*+HOURS+1) 


FIGURE 5,3. Not branching. 
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by one. Then the line reads “branch to iota (zero times HOURS)" which, 
since zero times HOURS is zero, has the effect of “branch to iota zero.” 

Now let's look at a slightly more interesting example. Figure 5.4 
shows a simple structure chart for determining if a vector X has seven 
elements. Figure 5.5 shows the corresponding program. 

As we start to read the program we run up against a number of 
things on line 2 which we haven't seen before. There is the word NOT- 
SEVEN, the word IF and a somewhat different use of the right-pointing 
arrow than we saw in Figure 5.3. И we quickly scan the rest of the pro- 
gram we see that NOTSEVEN is a line label. But what can IF be? 

The line seems to read sensibly if we mix our English and APL: 
“branch to NOTSEVEN IF the size of X is not equal to seven." But this 
doesn't mean that APL will interpret it in the same way. We don't know 
what IF means to APL. 

Although IF is not a grammatical form we have seen before, it is 
similar to one. № would make a certain amount of grammatical sense 
to replace the IF by a plus sign; then we would understand that we have 
а dyadic operator with two arguments. Thus, the line would make per- 
fect (grammatical) sense if we knew that there was а dyadic operator 
called IF. However, there isn't one. Instead, we have created a program 
called IF which works just like a dyadic operator. It gets two arguments 
and has a value which depends in some way on the arguments. 

The expression on line 2 is evaluated just like any other APL ex- 
pression: right-to-left. When APL sees an expression like 19— 4+5 it first 
evaluates 4+5, getting 9, and then 19-9, to get 10. In exactly the same 
way, APL first looks at the fragment shown in Figure 5.6. The result of 
this depends on the IF function. If the right-hand argument is false 
(value 0), the value of the fragment is the empty vector, so that we get 
а “do nothing" on line 2. But if the right-hand side is true (value 1), 
then the value returned is the left-hand argument (in this case, the label 
NOTSEVEN). At this time, the line means “branch to NOTSEVEN” 
and that is what happens: APL skips down to the line labeled NOT- 
SEVEN and starts running the program from there. The function IF is 
listed in Appendix Four. 

Figure 5.5 is now easy to read—or is it? Line 4 seems to say "branch 
to line 0.” But this doesn’t seem too sensible: line 0 is the header line, 
the name of the program. Are we supposed to start the program over 
again? 

Actually, because branching to line 0 doesn’t make any sense, APL 
uses the command "branch to line 0” with a special meaning—stop the 
program. We need to be able to stop the program explicitly when, as in 
Figure 5.5, the last line that we want to perform is not the last-num- 
bered line. With this understanding we can read all of Figure 5.5; as the 
output shows, it does exactly what we wanted. 


yes 


THIS ARGUMENT HAS THIS ARGUMENT DOES 
7 ELEMENTS NOT HAVE 7 ELEMENTS 


FIGURE 5.4. Examining the size of an argument. 


V EXAMINE X 


11 B----- CHECKS TO SEE IF X HAS 7 ELEMENTS 
2] -NOTSEVEN IF 7*p,X 

3] 'THIS ARGUMENT HAS 7 ELEMENTS' 

41 >0 


(51 NOTSEVEN:'THIS ARGUMENT DOES WOT HAVE 7 ELEMENTS' 


EXAMINE 17 
THIS ARGUMENT HAS ? ELEMENTS 


EXAMINE (7,1,1,1)p4.5 
THIS ARGUMENT HAS 7 ELEMENTS 


EXAMINE ‘BOW WOW" 
THIS ARGUMENT HAS 7 ELEMENTS 


EXAMINE 5 
THIS ARGUMENT DOES NOI HAVE 7 ELEMENTS 


EXAMINE (3.3У)р "АВС" 
THIS ARGUMENT DOES NOT HAVE 7 ELEMENTS 


FIGURE 5,5, How many elements? 


NOTSEVEN IF 7ер,Х 


FIGURE 5.6. Invoking the function IF. 


139 


140 


IF Statements—Checking Out Books 
EXERCISES 


5-1. Rewrite Figures 5.4 and 5.5 so that they also tell us whether X is 
a numeric vector or a character vector. 

5-2. Note that we took some liberties in Figure 5.5. The structure 
chart question in Figure 5.7A was inverted into the question in 
Figure 5.7B which actually appeared in the program. Rewrite the 
program so that it corresponds exactly to the structure chart. Why 
do you think we did the inversion when we wrote the program? 

5-3. Revise the program in Figure 4.24 by having it print explanatory 
messages to the user if the input is not a vector of size 12. For 
example, it should be able to give such information as 


THIS INPUT HAS ONLY 9 ELEMENTS. IT SHOULD HAVE 
12 


or 
THIS INPUT HAS 16 ELEMENTS, 4 TOO MANY. 


WRITING THE PROGRAM 


We are now ready to write a program CHECKOUT to implement Fig- 
ure 5.1. The first question which we must ask is, What is the data that 
the program gets to work with? Certainly it gets the number of books, 
which is simply a number. But it also gets the identification “number,” 
which has both letters and numbers—and as we know we cannot have 
both characters and numbers as part of the same data item in APL. 

Actually, though, there is not much of a problem. We don't need to 
compute with the numbers on the identification card, so it will cause 
no trouble if we express them as numeric characters. Then the identifi- 
cation card can be represented by a character vector. 

The structure chart in Figure 5.1 suggests that we perform the act 
of checking the data first. Figure 5.8 shows the part of the program 
which does this. We make a total of four checks, using the program 
ERROR. One line 1 we first ravel the identification number, ID, to 
make sure that it is a vector. Then we can ask for its size. If it is not 
exactly seven characters long then it, must be a poor forgery and we re- 
ject it. 

Next we check that the card has the proper information. The first 
character must be one of ‘F’, ‘В’, ог ‘О’. Third, the rest of the identifi- 
cation number (what we get by dropping the first element, which is 
what the down-pointing arrow does) must be numeric characters. Final- 
ly, the number of books must be a positive integer; to verify this we 
ask if BOOKS remains the same when we take the absolute value and 


4) 
720 ,X 


B) 
7жр,Х 


FIGURE 5.7. Two related questions. 


V BOOKS CHECKOUT ID 
[1] ‘INVALID ID CARD ' ERROR 7#pID+,ID 
121 'INVALID ID CARD ' ERROR-ID[1]le'FRO! 
[3] ‘INVALID ID CARD ' ERROR-^/(1VID)e'0123456789' 
C4] ‘NUMBER OF BOOKS ' ERROR(0=BOOKS)V(BOOKS#L| BOOKS) 
У 


FIGURE 5.8. Testing for validity. 


141 


142 


IF Statements—Checking Out Books 


then drop off any fractional part using the operator floor. This tells us 
that BOOKS is nonnegative and an integer; we must also check for the 
specific case of BOOKS equal to 0. 

Next we want to do the actual filtering of the identification num- 
ber through the decisions. If it begins with an ‘F’ then the borrower 
gets the book for 200 days. This brings us up against an unfortunate 
feature of the language. We really want to do two things which are in- 
compatible. The way that we think tells us in general to handle the first 
case first—that is, as we unfold Figure 5.1 into a program the part 
which deals with ‘F’-type cards should appear first in the program. 
That's the first thing we've decided to do and the program will be much 
clearer if we do it first. But we also like to ask questions in a positive 
way. Ideally, we want to say “If the first character is an ‘F’ then give 
the borrower 200 days." Putting these two aims together would give a 
program something like this: 


If the first character is ‘F’ do the next line 
Give the borrower 200 days 
Come here if, and only if, the first character wasn’t ‘F’ 


But it just doesn't work that way! We have to use the IF function to 
tell the program not to do the next line, since it always does the next 
line unless instructed otherwise. 

We must compromise. Either we cannot do the first thing first or 
we must ask the negative of what we want. Here we will take the latter 
approach. We will use IF statements to say “If the condition does not 
hold, then continue processing someplace else." This approach will give 
us a program segment like the one shown in Figure 5.9. 

If the first character is not ‘Е’ then the borrower is a student; we 
will write the part of the program for students shortly. If the borrower 
is faculty we must print out the message saying how long the books 
may be borrowed. Then we are done and a “branch to zero" ends the 
program. 

Тһе entire program is shown in Figure 5.10. The only part that is 
new is the part that deals with student borrowers. First, the message 
giving the permitted borrowing time is printed. Then, if the borrower 
is taking only six or fewer books, that is all we need to do. However, 
if more than six books are being presented for checkout we must also 
print a message to warn the librarian. Figure 5.11 shows the program 
in action. 


>STUDENT IF ID(iijz'F' 


'THESE BOOKS ARE DUE IN 200 DAYS' 
-0 
STUDENT: ... 


FIGURE 5.9. Is it a faculty card? 


[1] 
[21 
[3] 
[uj 
[5j 
(61 
(7) 
[83 
[91 


y 


(102 


У 


BOOKS СНЕСКОЙТ ID 

‘INVALID ID CARD ' ERROR 7#pID+,ID 

‘INVALID ID CARD ' ERROR~ID[1]e'FRO' 

'INVALID ID CARD ' ERROR~A/(1 Ар )є' 0123456789! 
'NUMBER OF BOOKS ' ERROR(0-BOOKS)v (BOOKS*|| BOOKS) 
-STUDENT IF ID[1]e'F' 

'THESE BOOKS ARE DUE IN 200 DAYS' 

+0 
STUDENT:'THESE BOOKS ARE DUE IN 30 DAYS' 

>0 IF ВООК556 

"ВИТ YOU MAY ONLY BORROW SIX ОР ТНЕМ' 


FIGURE 5.10. The complete program. 


3 CHECKOUT *F012345' 


THESE BOOKS ARE DUE IN 200 DAYS 


7 CHECKOUT 'R987654' 


THESE BOOKS ARE DUE IN 30 DAYS 
BUT YOU MAY ONLY BORROW SIX OF THEM 


6 CHECKOUT 10555121" 


THESE BOOKS ARE DUE IN 30 DAYS 


5 CHECKOUT 'F1234567' 


INVALID ID CARD ERROR 


FIGURE 5.11. Checking books out. 
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IF Statements—Checking Out Books 
EXERCISES 


5-4. We performed many checks on ID, but only one on BOOKS. Sup- 
pose that for some reason BOOKS is not a scalar: perhaps the 
librarian accidentally hit two keys on the terminal and BOOKS 
comes to the program as a vector. What happens? Is it worth 
checking for this? If so, do it; if not, explain why not. 

5-5. Change CHECKOUT so that it always tells how many books are 
actually being borrowed. 

5-6. Was it really necessary to ravel ID? What happens if ID comes in 
as a scalar and we don't ravel it before checking its size? 

5-7. If there is an error in the identification card, the program says 
only INVALID ID CARD ERROR, even though it knows what 
the error is. Fix this. 

5-8. The president of the university has decided to allow the citizens 
of the local community to borrow books for up to 15 days (but 
they may borrow as many as they wish). Rewrite the program to 
reflect this new policy. (Hint: Do a new structure chart first.) 


FUNCTIONS 


It may have occurred to you that the checks that, we do on the validity 
of the identification card are rather simpleminded. Anyone who in- 
tended to forge an identification card would certainly get the number 
of characters right. This, as it turns out, has also occurred to the cam- 
pus security consultants. Each identification number has an internal 
consistency check: the last number is derived from the others by a 
scheme which is supposed to be checked by the computer. The scheme 
works like this: sum the first five numbers; add 2 for a faculty card, 3 
for an off-campus student and 5 for a residential student; square the re- 
sult; and then take the last digit of that as the last digit of the identifi- 
cation number. 

As an example, suppose that the identification number is F234127. 
Add up the first five digits to get 12, add 2 for faculty to get 14 and 
square that. The result is 196, so the last digit of the card should be 6— 
since it isn't, the card is invalid. 

We want to include in our program a check as to whether or not the 
identification number passes this test. We will do it with a line like the 
one shown in Figure 5.12. This is another line which, at first glance, 
seems to follow a different grammar from what we have already learned. 
What is to the right of the name ERROR? ID is the name for the iden- 
tification number, but what is TEST? We are supposed to have an ex- 
pression to the right of ERROR, one which has value either 1 or 0. 


'SECURITY VIOLATION 'ERROR TEST ID 


FIGURE 5.12. Test is a function. 
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Since we know what ERROR does, we must conclude that TEST 
ID is an expression with value either 1 or 0. Since TEST is not an АРІ, 
operator, it must be a function. TEST performs the checking of the 
identification number. It takes one argument, ID, and returns a value of 
1 or 0 (1 when the ID is invalid). We talked about the concept of return- 
ing a value when we introduced IF, but now we need to go into a bit 
more detail. By *return a value" we mean that when the program runs 
it comes up with some value which replaces its name in the expression 
where it is used. This is not really mysterious. As we noted above, when 
APL evaluates a simple expression like 19-4%5 it first evaluates 4*5 
and then replaces “4+5” by the result “9” in the expression, so that it 
is now evaluating the arithmetic expression “19-9.” 

A function program is handled the same way. When it appears in an 
expression, APL takes that part of the expression consisting of the pro- 
gram name and its arguments and replaces it with the value computed 
by the function. Naturally, we need a way to tell APL that certain pro- 
grams are functions and must be treated in this way. Figure 5.13 shows 
а program to divide two numbers, checking for 0 as a divisor. The 
header line shows that the program returns a value. RESULT is the 
name that the program uses to specify that value. But the name 
RESULT has no meaning outside the program. Suppose we type 
6 DIVIDEDBY 3. This calls the program, which sets up the value 2 in 
RESULT. When the program is done, APL knows (from the header 
line) to look at the value of RESULT and to use that as the value of the 
expression 6 DIVIDEDBY 3. There is nothing magic about the name 
RESULT—we could use any name at all. 

Notice from Figure 5.13 that we can include references to DIVIDED- 
BY in expressions and it is just as if we had used the operator divide. 
Except, that is, for the very last call, where we get a VALUE ERROR. 
Looking closely at the program, we can see that it stops if the divisor 
is 0 but doesn't give any value to RESULT in that case. Thus, the ex- 
pression 6 DIVIDEDBY 0 has no value. 

We can correct for this. If we divide by 0 we will return something 
as a value. What we would want to do is return a value which is sure to 
be noticed, since division by 0 is usually a mistake. The value we use 
in Figure 5.14 should cause some strange things to happen in subse- 
quent computations so that we would be likely to notice the error. 
But just to be sure, we also print a message warning that division by 0 
has been attempted; this illustrates that we can do anything inside a 
function program that we can do in other programs. 


V RESULT+DIVIDEND DIVIDEDBY DIVISOR 
[1] +0 IF DIVISOR=0 
L2] RESULT+DIVIDEND:DIVISOR 


6 DIVIDEDBY 3 


2 

8 * 6 DIVIDEDBY 3 
10 

6:(6 DIVIDEDBY 3) 
3 


6 DIVIDEDBY O 


3 + 6 DIVIDEDBY 0 
VALUE ERROR 
3 + 6 DIVIDEDBY O 
^ 


FIGURE 5.13. Almost a function. 


$ RESULT«DIVIDEND DIVIDEDBY DIVISOR 

i11 *ZERODIVIDE IF DIVISOR=0 

[2] RESULT+DIVIDEND*DIVISOR 

i33 +0 

[42 ZERODIVIDE:'DIVISION BY ZERO. RESULT SET TO ";ВЕ5/27% 999999999 
2 


6 DIVIDEDBY 3 


6 DIVIDEDBY 0 
DIVISION BY ZERO. RESULT SET TO 7 999499999 
7999999999 


3 + 6 DIVIDEDBY 0 


DIVISION BY ZERO. RESULT SET TO "999999999 
7999999996 


FIGURE 5.14. A division function. 
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Now we can return to our program TEST. We will put Figure 5.12 
after all the other checks on ID in Figure 5.10, so that we will not need 
to do the simple checks on ID inside TEST. The computation that we 
need to do is not difficult, except for the fact that it requires us to deal 
with the identification numbers as numbers, not as numeric characters. 
We can easily transform these six numeric characters to the correspond- 
ing six numbers by using the operator index. Examples are given in 
Figure 5.15: the location of each numeric character in the character 
string *0123456789' is itself a number. 

The program TEST is shown in Figure 5.16. First we convert the 
numeric characters to numbers. Then we begin the consistency calcula- 
tion. We add up the first five numbers and then add the number which 
represents the first character; this is selected by the compression ex- 
pression. Finally, we square the result and take the last digit, which is 
just the remainder when we divide by 10 and can be found with the 
operator modulus. The result of the test, INV ALID, is 1 if the calculated 
digit does not match the last digit of the card and is 0 otherwise. 

Figure 5.17 shows the new CHECKOUT program. 


EXERCISES 


5-9. Figure 5.17 might seem to be a bit disconcerting, as some checks 
on the card are done right in CHECKOUT while others are 
"pushed down” into TEST. It would be much clearer if they 
were all kept together. Decide if we should do them all in TEST 
or if we should get rid of TEST and do them all in CHECKOUT. 
Explain your decision and then implement it. 

5-10. Write a function which takes one argument, a character vector. 
The function returns that part of the vector beginning with the 
first element and ending with the second occurrence of that ele- 
ment. If the argument is ‘STATE UNIVERSITY AT PODUNK’ 
the program returns the value ‘STATE UNIVERS'. If the first 
element is not repeated the program returns the empty vector. 


COMPLICATING THE PROBLEM 


In response to student statements that the library policy is not respon- 
sive to the actual needs of students, some changes have been made. Peri- 
odicals are now treated differently from books. No borrower may take 
out more than four periodicals at a time and they must be returned 
within 48 hours. Let's look at Figure 5.17 to see what changes this will 
engender. 


71+'01234 567831115. 
5 

71+10123456789'1'0' 
0 

714'0123456789'1!1352u5! 
1852455 


FIGURE 5.15. Numeric characters to numbers. 


У INVALID«-TEST ID;NUMERIC ;DIGIT 
[1] WUMERIC+~1+'0123456789'11+ID 
[2]  DIGIT-*/NUMERIC[151 
Із]  DIGIT-DIGIT*(ID[11-'FOR!')/(2 3 5) 
[4]  DIGIT«10|DIGIT*2 
[5]  INVALID-DIGIT*NUMERIC[6] 
V 


FIGURE 5.16. Security testing. 


У BOOKS CHECKOUT ID 
[1] 'INVALID ID CARD ' ERROR 7zpID+,ID 
[2] ‘INVALID ID CARD ' ERROR-ID[i]e'FRO' 
[3] ‘INVALID ID CARD ' ERROR-^/(1*1D)e'0123556789' 
[u] 'SECURITY VIOLATION ' ERROR TEST ID 
[5] ‘NUMBER OF BOOKS ' ERROR(0=BOOKS)V(BOOKS#| | BOOKS) 
t6] 2STUDENT IF IDiije'F' 
[7] 'THESE BOOKS ARE DUE IN 200 DAYS' 
[8] +O 
[9] STUDENT:'THESE BOOKS ARE DUE IN 30 DAYS' 
[10] +0 IF В00К5<6 
[11] "BUT YOU МАУ ONLY BORROW SIX OF ТНЕМ' 
v 


FIGURE 5.17. A more secure system. 
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The program now needs to get separate numbers for books and pe- 
riodicals. It still, of course, needs the identification number. Unfortu- 
nately, no APL program can have more than two arguments—there are 
only two sides (left and right) to the name. There is no serious problem, 
however, as there is no restriction of what the two arguments may be— 
only the program itself can decide, by explicitly rejecting arguments 
which are not proper for it. Thus, we could call the program in Figure 
5.17 by passing a large two-dimensional array of numbers as the right- 
hand argument; only the error checks that we built in will reject the 
argument. 

So to solve the problem of the books and periodicals we can decide 
that the left-hand argument will be a vector of size 2, the first element 
being the number of books and the second the number of periodicals. 
The first change that this suggests is to the name BOOKS-— perhaps 
ITEMS would be better. (However, we don't have to change the name, 
and if we don't, we wouldn't have to make any changes at all to the 
header line.) 

We will certainly need to perform more checks on ITEMS than we 
did on BOOKS: it must be a vector of size 2, each element must be a 
nonnegative integer and both elements cannot be 0. 

We have some more decisions to make as well. Our new specifica- 
tions treat all borrowers the same with respect to periodicals, so it 
seems reasonable to leave the handling of books as it is and to write 
code for the handling of periodicals afterwards. Naturally we do not 
want to let the faculty evade having their periodicals checked, so we 
can no longer stop the program when we finish checking faculty bor- 
rowers, as on line 8 of Figure 5.17; the same holds for students who 
don't try to borrow more than six books. Note also that a borrower 
may be taking only periodicals and we may not need to deal with the 
book part at all. 

The modifications are simple to make. Тһе new program is shown 
in Figure 5.18, and Figure 5.19 shows some runs. 


EXERCISES 


5-11. Play “twenty questions" with someone and write a structure 
chart as you proceed. When you ask a question, before it is an- 
swered, write down what you will ask if the response is “yes” 
and what you will ask if it is “по.” 

5-12. Write a structure chart and function which takes two three- 
character arguments, returning the alphabetically first of the ar- 
guments. Use the collating scheme: blank comes before A comes 
before B...comes before Z comes before 0 comes before 1... . 


a 


ITEMS CHECKOUT ID 
[1] ‘INVALID ID CARD ' ERROR 7zpID*,ID 
(22  'INVALID ID CARD * ERROR-IDUije'PRO' 
[3]  'INVALID ID CARD ' ERROR-^/(141D)e'0123856789* 
[a] —'SECURITY VIOLATION ' ERROR TEST ID 
[5] ‘ITEMS SIZE ' ERROR 2*pITEMS+, ITEMS 
(061 "ITEMS VALUES ' BRRORV/ITEMS=| | ITEMS 
[7] — 'ITEMS VALUES * ERROR O-«/ITEMS 
18]  -PERIODICALS IF ІТЕМ5(1150 
[91 STUDENT IP IDiilz'F' 
[10] 'THESE BOOKS ARE DUE IN 200 DAYS! 
[11] PERIODICALS 
[12] STUDENT: THESE BOOKS ARE DUE IN 30 DAYS! 
[13] PERIODICALS ІР ITEMS[1]s6 
[14] "BUT YOU MAY ONLY BORROW SIX OP THEM! 
[15] PERIODICALS:*0 ІР ITEMS[2]-0 
L16] 'THESE PERIODICALS MAY BE BORROWED POR 48 HOURS' 
[17] +0. ТР ITEMS[2]su 
[18] 'BUT YOU MAY ONLY BORROW FOUR PERIODICALS" 
v 


FIGURE 5.18. Lending books and periodicals, 


2 3 CHECKOUT 'F132729"' 
THESE BOOKS ARE DUE IW 200 DAYS 
THESE PERIODICALS MAY BE BORROWED FOR 48 HOURS 


6 9 CHECKOUT 'R821275' 
THESE BOOKS ARE DUE IN 30 DAYS 
THESE PERIODICALS MAY BE BORROWED FOR 48 HOURS 
BUT YOU MAY ONLY BORROW FOUR PERIODICALS 


FIGURE 5.19. Running the program. 
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5-13. 


5-14. 


5-15. 


5-16. 


5-17. 


Write a similar program for sorting, except let there be only one 
input, an array with three columns where each of the two rows 
represents a different word. 

Can you write a program for Exercise 5-13 in the case where you 
don't know the number of rows in the array before you write 
the program? Can you write the structure chart? 

A truly responsive library might change its borrowing time limits 
frequently, depending on the needs of the borrowers and the 
number of books in circulation. Modify CHECKOUT by includ- 
ing the various borrowing times as elements of a vector of size 3 
(for the three borrower categories) which is assigned at the be- 
ginning of the program and then refer to this vector in the pro- 
gram instead of the absolute borrowing times. This way, chang- 
ing a borrowing time involves changing only this one vector. 
Follow up on Exercise 5-15 and modify the program to allow 
for the possibility that “О” and ‘R’-type students have different 
borrowing times. 

Modify Figure 5.18 so that the total number of books in the 
library is 100,000—so that no опе could ever borrow more. 


Interlude Three 


Workspace Organization 
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Workspace Organization 


We have already seen one form of the COPY command, for copying the 
entire contents of a saved workspace into the active workspace. Unlike 
LOAD, COPY does not copy the workspace itself, but only the pro- 
grams and variables which it contains. Other forms of this command 
permit us to copy only parts of a workspace. 


COPYING OBJECTS 


The basic objects of a workspace are, of course, its programs and vari- 
ables; one other object, the group, will be introduced below. To copy 
an object from a workspace it is necessary only to append the name of 
the object to the basic COPY command. Thus 


JCOPY ACCOUNTING PAYROLL 


will copy (only) the object PAYROLL from the workspace ACCOUNT- 
ING. Of course, if the workspace is under a different sign-on number, 
that must be given too. In some systems, to copy two objects from a 
workspace it is necessary to give two separate COPY commands; in 
others, many names may be listed in the command. Note that if there is 
already an object PAY ROLL in your active workspace the copied object 
will replace it. 

Copying in this manner can be inconvenient when there are many 
objects to copy, so APL has a facility which lets you group a collection 
of objects under a common name and then, by copying the group 
name, get all the objects. For example, the command 


)GROUP WEATHER TEMP TEMPERATURE CHECKOUT 


creates a group called WEATHER consisting of the objects TEMP, TEM- 
PERATURE and CHECKOUT. A group cannot be executed, but it can 
be copied. Note that a group must be created in the workspace that you 
are copying from, and so must be created before you need it. The abil- 
ity to group objects is thus most useful for objects which you will be 
copying many times. Once you have a group though, copying it is no 
more difficult than copying any object. If WEATHER were a group in 
the workspace ACCOUNTING then the command 


)СОРҮ ACCOUNTING WEATHER 


would copy the objects TEMP, TEMPERATURE and CHECKOUT. 


Workspace Organization 


We now have three major classes of objects: groups, variables, and 
programs. There is a system command which lets us list all of the objects 
of one of these types. To list all of the group names in your workspace, 
execute the command 


)GRPS 


This will tell you what the names of the groups are, but will not tell you 
the objects which comprise the groups. To find that out, use the com- 
mand GRP, as 


ӘСЕР WEATHER 
which results in a list of the objects contained in group WEATHER. 
We have already seen the commands which cause APL to list all of. 
the variable names or program names in your workspace: they are 
)VARS 
and 
)FNS 
As with GRPS, these commands will just give a list of the names of the 
variables or programs (all programs are sometimes called functions in 
APL even though all are not functions which return values—hence, the 


command FNS for FuNctionS). Using VARS will not get you the values 
of the variables and FNS will not run any programs. 


EXERCISES 


13-1. What is the difference between the commands COPY and PCOP Y? 
13-2. To add an object SNOW to group WEATHER use the command 


)GROUP WEATHER WEATHER SNOW 
What would be the result if you used the command 
)GROUP WEATHER SNOW 
instead? 
13-3. Define a group GUIDE, one object of which is another group. 


SAVE, CLEAR and then COPY GUIDE. Which objects are car- 
ried along in the copy? 
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13-4. Define two groups, GUIDE and LEADER, and then include each 
group in the other. CLEAR and then copy one of the groups; 
which objects are carried along? 

18-5. To get rid of an object CODES from a workspace, enter the com- 
mand 


)ERASE CODES 


If CODES is a program or a variable, it will indeed be erased. 
What objects will be erased if CODES is a group name? (Note 
that more than one object at a time can be listed in this com- 
mand, as 


JERASE TEMP TEMPERATURE CHECKOUT 


13-6. If all the objects in a group are erased, what happens to the 
group? 

13-7. Which error messages can occur with a COPY command? How 
can you cause them to happen? 


WORKSPACE FUNCTIONS 


There are a number of other useful commands for workspace control. 
Three which we will mention briefly are WIDTH, DIGITS, and ORIGIN. 
Each command, like an operator, takes a single argument N. For WIDTH, 
the argument is the number of spaces across a line which APL will print. 
Of course, N cannot be larger than the number of physical spaces across 
your terminal, and there is usually a lower bound as well. For DIGITS, 
the number N is the maximum number of significant digits which will 
be printed for any number. Finally, for ORIGIN, N can be only 0 or 1 
and is the new value of the origin for the operator iota and for sub- 
scripting. When you use one of these commands, APL will tell you what 
the previous value was, as in Figure I3.1. 

Some of these same functions, and others as well, can also be accom- 
plished by means of the I-beam operator. The I-beam looks and func- 
tions just like a primitive operator in that it has both monadic and 
dyadic forms, but each I-beam is really a request or command to the 
system. We have already seen that I-beam 22 returns the amount of 
space left in a workspace. Other monadic I-beams return the time of 
day, the date, the total number of users on the system and so on. There 
are also some dyadic I-beams for giving system commands. The 6 
l-beam group contains the workspace commands which we mentioned 
above and a few other besides. 


)pIGITS 5 
WAS 10 


FIGURE 13.1. Changing digits. 
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The right-hand argument of the 6 I-beam is a vector of size 2. Тһе 
first element is a control number, specifying which system command 
is being given, and the second is a new value being given to one of the 
system parameters (see the chart in Figure 13.2А). The line in Figure 
13.2В sets the origin to the value of N. The 6 I-beam operator returns as 
a value the previous value of the system parameter. Thus, you can set 
these values as you wish inside a program and restore them to their 
previous values when the program finishes execution. 

Two new system parameters are controlled by the 6 I-beam opera- 
tor. One (with control number 1) is called the link or seed and is used 
by the random number generator to generate the next random number. 
Each time a number is generated by ? the seed is changed. The seed can 
be set with this 6 I-beam. This can be useful when you wish to rerun a 
program using random numbers. 

When the control number is 4, the 6 I-beam lets you set the system's 
fuzz, Since the computer is only a finite machine it cannot accurately 
represent such numbers as 1/3, which have infinite decimal approxi- 
mations. Furthermore, because of this, small errors are bound to creep 
jn whenever arithmetic operations are done. For example, 14.026/7.013 
is not likely to be exactly 2 after any computer gets done with it. But 
it would surely be undesirable if we had to worry about the machine's 
arithmetic problems, since the errors tend to be quite small. For all 
practical purposes, we would want the value of 


2 = 14.026 + 7.013 


to be 1. APL takes care of this by keeping a very small number, called 
the fuzz, which it uses when comparing two numbers, If APL's internal 
representation of two numbers differs by less than the fuzz, then they 
are treated as though they were equal. Since the arguments to the 6 
I-beam are integers, the number you give is not really the fuzz. Instead, 
it is an integer which is used to determine the fuzz. 

Figure 13.3 shows a program which uses the 6 I-beam operator. The 
program's arguments are two numbers; the program sets the value of 
DIGITS to be the left-hand argument, prints the right-hand argument 
and then restores the value of DIGITS. Figure 13.4 shows some runs 
of the program. 


EXERCISES 


13-8. Why does the expression in Figure 13.5 print the time of day in 
a recognizable form? 
I3-9. How small can the value of DIGITS be? Of WIDTH? 


A) 


COMMAND ACTION 

6r0,N SETS ORIGIN TO N 

611,N SETS SEED TO N 

6r2,N SETS DIGITS TO W 

613,1 SETS WIDTH TO N 

6ru,# SETS FUZZ TO N 
B) 

SAVEAORIGIN*610,N 


FIGURE 13.2. Some system commands. 


V DIGITS PRINT NUMBER;SAVEADIGITS 


[1] SAVEADIGITS*612,DIGITS 
C2) O+NUMBER 


ЇЗ] SAVEADIGITS+612,SAVEADIGITS 


v 


FIGURE 13.3. Changing DIGITS іп a program. 


)DIGITS 10 
WAS 10 

+19 
0.052631 57895 

5 PRINT +19 
0,052632 

8 PRINT +19 
0.052631579 

13 РАТИТ +19 
0.05263157894737 

)DIGITS 10 
WAS 10 


FIGURE 13.4. The result of changing DIGITS. 


(24 60 60 60)TI20 


FIGURE 13.5. The time of day. 
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Workspace Organization 


13-10. 


13-11. 
13-12. 


How do small changes in the seed affect the values of the ran- 
dom numbers generated? 

What units are used for the fuzz? 

Can you create two numbers which print the same but are not 
considered equal by APL? Can you create two numbers which 
are considered the same but print differently? 


6 


DO Loops— 
A Program 
for Sorting 


The Beaver had counted with scrupulous care, 
Attending to every word: 

But it fairly lost heart, and outgrabe in despair, 
When the third repetition occurred. 
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If it became necessary, in the previous chapter, to add three or four 
new classes of library user, we would have to make major revisions in 
the programs. We would need a little piece of program to handle each 
particular user category. As the number of user categories grew larger, 
this would clearly become cumbersome. We could imagine a structure 
chart which had a large DO block, “DO for each user category in turn." 
We could then use the same instructions for each category; the differ- 
ences between categories, such as maximum borrowing times, would be 
expressed by choosing the correct time from a vector according to the 
category number. We could do this easily in a structure chart but we 
have not yet found a way to translate the DO block into APL state- 
ments. The ability to repeat statements is what gives programming its 
power; we will illustrate it in this chapter, beginning with a program for 
finding the alphabetically first (smallest) row of a character array. 


FROM DO BLOCKS TO DO LOOPS 


We show in Figure 6.1 a structure chart for the problem of finding 
the smallest row of an array. Starting with JUMBLE as the array con- 
taining the various words, we let ROWS be the number of its rows and 
COLUMNS the number of columns. ALPHA is set to be the vector con- 
taining all the characters which we allow in JUMBLE, in alphabetical 
order, and POSSIBLE starts out as the vector 1, 2, ..., ROWS. Look 
first at the two statements inside the DO block, letting POSITION be 
1 for the purposes of the example. The first statement produces a vec- 
tor whose ith element is the order (according to ALPHA) of the symbol 
in the ith row and first column. Thus, if the first column is * A BA С’ 
then the first statement will produce 1 2 1 3 2 1 4 as the value of 
ORDER. The only rows which can possibly contain the alphabetically 
first word are those for which the corresponding values in ORDER are 
as small as possible. In this case, they would be the three rows begin- 
ning with blank, rows 1, 3 and 6. So, in the second statement, we re- 
place POSSIBLE by the vector of numbers of those rows, 1, 3 and 6. 
And when we look at the next column, we know that we only have to 
look at the elements in rows which are still (elements of) POSSIBLE. 

How long do we have to keep doing this procedure? Surely we can 
stop if POSSIBLE ever has only one element, for that will correspond 
to the alphabetically first row; we can also stop after examining all the 
columns. If, after looking at all the columns, POSSIBLE has more than 
one element, then all the rows whose indices are in POSSIBLE are equal 
and alphabetically before all the others. 

The rest of the structure chart should now be clear. We set the vari- 
able POSITION to be 0 and then increment it by 1 just before perform- 
ing the two statements in the scope of the DO block. The first time we 
do these statements, POSITION will have value 1, the next time value 


JUMBLE is an атау 
SMALLEST will be its alphabetically smallest row 


ROWS = (pJUMBLE)[1] 
COLUMNS < (eJUMBLE){2] 
ALPHA <‘ ABC. . .YZ01. . .9° 
POSSIBLE < 1 ROWS 


(о) Now loop through each column, eliminating rows which can't 
be smallest 


POSITION < 0 

DO until (COLUMNS < POSITION < POSITION+1) V (1=p, POSSIBLE) 
Í ORDER < ALPHA1JUMBLE[POSSIBLE;POSITION] 
POSSIBLE < (ORDER = | /ORDER)/POSSIBLE 

POSSIBLE < 11POSSIBLE 

SMALLEST < JUMBLE[POSSIBLE;] 


FIGURE 6.1. The smallest row of an array. 
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loop 


WHEN 


DO Loops—A Program for Sorting 


2 and so on. When POSITION gets incremented to have value COL- 
UMNS+1, one more than the number of columns, the DO group is not 
entered. The DO group is also not entered when the size of POSSIBLE 
becomes 1. In either of these cases, the first statement below the DO 
group chooses the first element of POSSIBLE—if POSSIBLE has only 
one element, then that element will, of course, be chosen. The value of 
POSSIBLE is then the number of the row containing the alphabetically 
first word. 

Before we write this program, let's first consider the simpler struc- 
ture chart in Figure 6.2. This is a function of one scalar argument, 
called ARGUMENT, which returns the sum of the numbers from 1 to 
ARGUMENT. Of course, the same result could have been achieved in 
many simpler ways using APL's operators. The corresponding program 
is shown in Figure 6.3. The structure chart is very simple. We first set 
SUM to 0 so we can add to it, and then go through the loop with A hav- 
ing the values 1, 2, ..., successively and each time add A to SUM. 

Now look at the program. In line 5, we initialize SUM. Lines 6, 7, 
9 and 10 form the translation of the DO block and line 8 is its scope. 
Structurally they can be represented as in Figure 6.4. 

Line 7 is called the loop contro! statement and the entire group of 
Statements is often called a loop. 

The utility program WHEN functions in much the same way as IF: 
for a 0 right argument, the result is the empty vector; for a right argu- 
ment equal to 1, the result is the left argument. So each time line 7 is 
executed, A is incremented by 1. As long as its new value is less than or 
equal to ARGUMENT, the scope of the loop will be executed and con- 
trol will then be returned to statement 7 by statement 9. However, 
once A becomes equal to ARGUMENT+1, control passes to statement 
10, which in this case ends the program. 

The statement labels used in the loop are chosen to mnemoni- 
cally represent the action of the loop. The label on line 7 can be read 
"change А” since a delta is sometimes used in mathematics with a simi- 
lar meaning, and the label on line 10 сап be read “end change A.” When, 
in other programs, the scope of the loop becomes complex, there will 
be other lines with labels besides those being used for the loop control 
and it will prove to be a significant help to have the labels for the loop 
control designated in this way so that we can easily see the structure 
of the program. 


Q Sums the integers from 1 to ARGUMENT. 


The result is SUM. 


SUM - 0 


A-0 


DO until ARGUMENT < A = A*1 
SUM = SUM + А 


FIGURE 6.2. Repeated addition. 


[9] 


V SUM*«SUMRED ARGUMENT;A 


'SUMRED: ARGUMENT NOT SCALAR ' ERROR 1<р ARGUMENT 
ARGUMENT NOT POSITIVE ' ERROR O2ARGUMENT 
ARGUMENT NOT INTEGER ' ERROR ARGUMENT#LARGUMENT 

А----- THIS PROGRAM FINDS SUM+1+2+...+ARGUMENT 

50М+0 

А-0 

ВА : +ЕМЮЛА WHEN АВСИМЕМТ<А+А+1 

50М+50М+А 

+44 


[10] ENDSA:+0 


v 


FIGURE 6.3. Translation of Figure 6.2. 


А<0 


А+ 0 


DO until condition 


AA:-ENDAA WHEN condition 


actions actions 


Things done after loop МОЛА: 
(may be end of program) i j 


FIGURE 6.4. From structure chart to program. 
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We return now to the structure chart of Figure 6.1 and the pro- 
gram FIRST in Figure 6.5 which implements it. After checking that the 
argument is valid and setting up the collating sequence ALPHA we 
set ROWS and COLUMNS to be the number of rows and columns of 
the argument, respectively. We next start POSSIBLE off as the vector 
1, 2, ..., ROWS, signifying that at this point all rows are equally likely 
as candidates for being the alphabetically first. Then we enter the loop. 
The loop variable POSITION is initialized at 0 and then incremented 
each time through. The loop ends when POSITION becomes larger than 
COLUMNS or when POSSIBLE has only one element, Inside the loop 
we find, as before, the indices in ALPHA of the elements in the column 
referred to by POSITION and the rows designated by POSSIBLE, and 
then replace POSSIBLE by the vector containing only the numbers of 
those rows which yield the smallest index. We then go back to incre- 
ment POSITION and enter the loop again. 

When one of the conditions in the loop control statement has been 
met, control passes to line 12, where the first element of POSSIBLE is 
chosen as the row number of the result and the function is given a value 
by assigning the alphabetically first row to SMALLEST. 


EXERCISES 


6-1. Write a program for finding the alphabetically last column of a 
character array. 

6-2. In both Figure 6.5 and Exercise 6-1 we have made no check as to 
whether the array contains any characters not in ALPHA. Assume 
that the array contains exactly one such illegal character. Which, 
if either, of the programs will still produce the correct result—a 
row containing only legal characters? 

6-3. Write a function of two character vector arguments which pro- 
duces a 1 if the left argument appears in the right argument and 
а 0 otherwise. The response will be 1, for example, for the pair 
(‘RAN’, ARRANGE!) but 0 for the pair ('CAT', CHAT"). 

6-4. Does line 1 of SUMRED really test if ARGUMENT is a scalar? 


THE BUBBLE SORT 


In most applications, we will seldom want only the alphabetically first 
row of the array. It is much more common to require the array to be 
sorted, so that the first row is alphabetically smaller than the second, 
which is smaller than the third, and so on. We could use the program 
FIRST to completely sort the rows in the obvious way. After finding 
the smallest row, place it at the top of the array. Then look at the re- 
maining rows to find the next smallest and so on. Such a procedure 


[1] 
[21 
taj 
[s] 
[s] 
161 
[7] 
[81] 
te] 


[10] 
[11] 


Y SMALLEST~FIRST JUMBLE;ALPHA;POSITIONiORDER;ROWSiCOLUMNS POSSIBLE 
IFIRST: ARGUMENT NOT ARRAY ' ERROR 2spoJUMBLE 
%РІН5Т: ARGUMENT NOT CHARACTER ' ERROR Oc0XO/JUMBLE 
ALPHA-' ABCDEFGHIJKLMNOPQRSTUVWXY20123856789" 
ROVSe(oJUMBLEM 1] 
COLUMNS+( pJUMBLE)(2] 
POSSIBLE*\ROWS: 
POSITION*O 
SPOSITION: +ENDAPOSITION WHEN (COLUMNS <POSITION*POSITION+1)¥1=o , POSSIBLE 
ORDER~ALPHA\JUMBLE| POSSIBLE; POSITION] 
POSSIBLE*( ORDER=\ /ORDER) / POSSIBLE 
-APOSITION 


[12] EWDAPOSITION: POSSIBLE+1+POSSIBLE 


(1a) 


SHALLEST+JUMBLE( POSSIBLE; } 
2 


FIGURE 6.6. Finding the smallest row. 
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would certainly work but it is far from the most efficient possible. To 
find the smallest element requires a large number of comparisons 
among rows; in making these comparisons we surely get some infor- 
mation about the relative rankings of some of the otber rows which 
don't turn out to be first and yet we don't use any of this information 
to find the second smallest row. 

There are a number of techniques available for taking advantage 
of the partial information which is developed during the sorting proc- 
ess. One such procedure is the bubble sort. With the bubble sort, we 
look at the first two rows and interchange them if they are not in the 
proper order. Then we look at rows two and three. If they are in the 
proper order, then we in fact know that all the first three rows are in 
proper order. Otherwise, we interchange the second and third rows. 
Now we must compare the first and second rows and perform another 
interchange if they are not in the proper order. 

We continue the process, encompassing one more row each time. 
So, at some point, we are comparing a current row, say row i, with row 
i—1. If these two are correctly ordered, (row i is larger than or equal to 
row 1—1), then in fact all of the first i rows are sorted: this is because 
the steps up to this point have been sorting the first i—1 rows. However, 
if row i is smaller than row i—1, we simply have to find where it be- 
longs and put it there. We can do this by interchanging: we take row i 
and interchange it with row i—1, then row i—2 and so on, until we find 
the place where it belongs. 

How do we know where this row belongs? Let's suppose that we 
have moved it until it is now row j, where j is less than i. If j=1, then 
our row was the alphabetically smallest. Otherwise, we only have to 
look at row j—1: we know from previous steps that rows 1 through 
j—1 are all in order, so if the row we have been moving is bigger than 
row j—1, it is in the proper place. The similarity of the way this row 
moves to that of a bubble moving in a column of water is what gives 
the method its name. It is much easier to see this work than to read 
about it: Figure 6.6 will get you started by showing how it works on a 
one column array of numbers and then you should try some more 
examples with both numeric and character arrays. Note that in the 
fourth step of Figure 6.6 the last element (2) bubbles up the column in 
three interchanges until it reaches the second position. 

A structure chart for the bubble sort is given in Figure 6.7. Notice 
that there are two loops, one embedded in the other. The array being 
sorted is JUMBLE. The variable CURRENT represents i of the preced- 
ing discussion, so that at the ith step (CURRENT-i) we compare rows 
CURRENT and CURRENT- 1. if they are properly ordered, we in- 
crement CURRENT by 1 and re-enter the outer loop. Otherwise, we 
first interchange rows CURRENT and CURRENT-1. The variable 
CURRENTAVALUE is used in the interchange process and has the 
value which row CURRENT had before the interchange. 


3 1 1 1 1 1 1 
>1 3 3 3 3 3 +2 
4 эц 4 4 8 +2 3 
5 5 +5 5 +2 4 4 
2 2 2 -+2 5 5 5 


STEP NUMBER 1 2 3 4.1 4.2 4,3 END 


FIGURE 6.6. A bubble sort. 


(©) Bubble sort of array JUMBLE 
CURRENT < 1 


DO until (oJUMBLE,[1] < CURRENT < CURRENT + 1 


JUMBLE[CURRENT — 1;] < JUMBLE[CURRENT; 
2 
yes no 
©] First swap these two rows 


CURRENTAV ALUE < 
JUMBLEICURRENT;] 


JUMBLE[CURRENT;] = 
JUMBLE[CURRENT — 1;] 
JUMBLE[CURRENT — 1;] < 
CURRENTAVALUE 
Now bubble as far as 
necessary 
PREVIOUS — CURRENT — 1 


DO until 
(12 PREVIOUS = PREVIOUS—1) 
V(JUMBLE[PREVIOUS;] 
X CURRENTAVALUE) 


JUMBLE[PREVIOUS + 1;] < 
JUMBLE[PREVIOUS;] 


JUMBLE[PREVIOUS;] < 
CURRENTAV ALUE 


FIGURE 6.7. The bubble sort algorithm. 
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We then enter the inner loop to begin the bubbling process. Since 
we will want to first compare CURRENTAVALUE with row CUR- 
ҺЕМТ-2, we initialize the loop variable PREVIOUS to CURRENT—1. 
Notice that this loop counts down rather than up as the others we have 
seen. The loop is exited once row PREVIOUS and row PREVIOUS+1 
(which has the same value as CURRENTAV ALUE) are properly ordered. 
Although APL is very fast anyway, we use CURRENTAV ALUE rather 
than JUMBLE[PREVIOUS+1;] in these comparisons because it takes а 
little less time to find the value of a variable than to find the value of 
one row of an array. 

Notice that we have made no mention of how to compare two rows 
of the array. The less-than-or-equal operator will not work for character 
vectors (and even if it did, it would produce a vector of the same size as 
the arguments rather than a scalar). Looking at the program BUBBLE 
in Figure 6.8, you can see that we have assumed that there will be a 
function called LEQ which will produce a 0 if its right argument alpha- 
betically follows its left argument and a 1 otherwise. 

Assuming that such a function exists, let's look at the program 
BUBBLE. 

The structure of the program follows that of the structure chart. 
Notice that it is quite easy to locate the two loops by means of the spe- 
cial line labels. There is one tricky difference between the structure chart 
and the program: the termination condition for the inner loop has been 
split into two lines, 9 and 10. Suppose we tried to combine them into 
one line. Consider first the expression in Figure 6.9A. By the right-to- 
left rule the comparison will be made before PREVIOUS is decre- 
mented. Since the preceding step, either through the loop or just before 
entering the loop, was designed to ensure that the relation on the right 
holds, we will never be able to enter the inner loop. If, on the other hand, 
we could make the comparison between JUMBLE[PREVIOUS—1;] and 
CURRENTAVALUE, or, equivalently, write the line as in Figure 6.9B, 
consider what happens when we enter the line with the value of PRE- 
VIOUS equal to 1. We would want to have PREVIOUS decremented to 
0, and then the loop would not be entered. But the entire expression 
must be evaluated before the decision not to enter the loop can be 
made. This will involve finding the value of JUMBLE[0;], which does 
not eixst in 1 origin indexing, and an INDEX ERROR will occur. 

Thus, we break the condition into two parts, first checking PRE- 
VIOUS to see if it is still a valid index and then doing the comparison. 
We use the utility program WHEN on line 10 to remind us that this is 
really part of the loop control statement. 

We still, of course, need a function LEQ. One candidate is presented 
in Figure 6.10. This is essentially the same as the program FIRST, 
changed to accept two vector arguments. 


V SORTED-BUBBLE JUMBLE;CURRENT ; PREVIOUS ;CURRENTAVALUE 
L1] "BUBBLE: ARGUMENT NOT ARRAY ' ERROR 2*ppJUMBLE 
[2] — CURRENT-i 
[3] ACURRENT:+ENDSCURRENT WHEN(oJUMBLE) (1 «CURRENT «CURRENT «1 
[4]  4SCURREW? IF JUMBLELCURRENT-1;) LEQ JUMBLE[CURRENT;] 
15] — CURRENTAVALUEeJUMBLELCURRENT ; ) 
[6] — JUMBLELCURRENT , J-JUMBLELCURRENT-3 ; 1 
17] — JUMBLELCURRENT-1;]-CURRENTAVALUE 
[8] — PREVIOUS«CURRENT-1 
192 APREVIOUS:*ENDAPREVIOUS WHEN 1>PREVIOUS~PREVIOUS-1 
(10) -END&PREVIOUS WHEN JUMBLELPREVIOUS;)] LEQ CURRENTAVALUE 
(111 JUMBLELPREVIOUS*1;]-dUMBLELPREYIOUS;] 
1421 JUMBLEC PREVIOUS; )-CURRENTLVALUE. 
[13] «PREVIOUS 
(14) ENDAPREVIOUS :+ACURRENT 
[15] ENDACURRENT : SORTED+IUMBLE 
2 


FIGURE 6.8. А bubble sort. 


4) 
APREVIOUS:+EWDAPREVIOUS WHEN (1>PREVIOUS+PREVIOVS-1)V(JUMBLELPREVIOUS;J]LEQ CURRENTAVALUE) 


8) 
APREVIOUS:+EWDAPREVIOUS WHEN (JUMBLELPREVIOUS;)LEQ CURRENTAVALUE)v(1>PREVIQUS+PREVIOUS-1) 


FIGURE 6.9. Two incorrect versions of a condition. 


V TRUE+LEFP LEQ RIGHT;ALPHA;POSITION;POSSIBLE;ORDER 


L1] — 'LEQ: БЕРТ ARGUMENT NOT CHARACTER ' ERROR 060(0/2ЕРТ 
[2] ‘LEQ: RIGHT ARGUMENT NOT CHARACTER ' ERROR DeQN0/RIGHT 
L3]  'LEQ: LEFT ARGUMENT МОТ VECTOR ' ERROR ivppLEFT 

[4] ‘LEQ: RIGHT ARGUMENT КОТ VECTOR ' ERROR 1*opRIGHT 

[5]  'LEQ: ARGUMENTS NOT CONFORMABLE ' ERROR(oLEFT)*pRIGHT 


L6] ALPHA*' ABCDEFGEIJKLMNOPQRSTUYWXY20123556789* 
17] РО$51ВЬЕ+\2 
[8]  POSITION«-0 
Г9] SPOSITION: +ENDAPOSITION WHEN((pLEFT)«POSITION-POSITION*1)V (1*0 ,POSSIBLE) 
[10] POSSIBLE+( ORDER*L /ORDER“ALPHA 120 LEFT POSITION | .RICHT[POSITION])/POSSIBLE 
(11] "POSITION 
1121 EWDAPOSITION: TRUE+1=1+POSSIBLE 

v 


FIGURE 6.10. Comparing two character vectors. 
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time 
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EXERCISES 


6-5. Notice that the check that the items being sorted are character- 
valued is made in LEQ rather than in BUBBLE. Thus, it is nec- 
essary only to change LEQ in order to have a bubble sort for 
numeric arrays. Make such a change. 

6-6. A much more useful version of LEQ would examine the inputs to 
see if they were both numeric or both character and perform a 
correct comparison in either case. Write and use such a program. 
Don't forget to check for the case of one argument being numeric 
and the other one being character. 

6-7. Can the problem which caused us to break the termination condi- 
tion for the innerloop into two statements be rectified by using 0- 
origin indexing? 

6-8. How do we know what the less-than-or-equal operator would pro- 
duce for character vector arguments even though it doesn't accept 
such arguments? 


A DIFFERENT APPROACH 


The version of BUBBLE which we now have stil! has at least one rather 
unfortunate feature—it may move the rows of the array around a num- 
ber of times. Moving rows of an array can become expensive for arrays 
with many rows and columns and it would be preferable to do as little 
moving as possible. The function BUBBLE in Figure 6.11 has the same 
Structure as Figure 6.8, but works somewhat differently. In line 2 we 
set a vector INDICES to be the vector of row numbers. Then, instead of 
interchanging rows of JUMBLE, the program interchanges correspond- 
ing elements of INDICES. Thus, when line 16 is reached, the vector 
INDICES indicates the order in which the rows of JUMBLE should be 
taken so that the result will be sorted properly. (Note the similarity 
between this and the way that the grade-up operator works on numeric 
vectors.) In line 16 the array is sorted by indexing with the vector IN- 
DICES; then the sorted array is assigned to SORTED to give the result 
of the function. 

It would be interesting to see which version of the bubble sort is, in 
fact, faster. To do this, we need to be able to find out how much com- 
putation time (CPU time) is taken by a program, which we can do with 
the system operator I-beam 21; this has for its value the number of 
sixtieths of a second of CPU time used since the beginning of the sign- 
on session. The program TIMER in Figure 6.12 can be used to investi- 
gate the amount of CPU time used between two events. 

Calling TIMER O saves the value of I-beam 21 at that instant. Later, 
when TIMER 1 is invoked, the saved value of I-beam 21 is subtracted 


9 SORTED-BUBELE JUMBLE CURRENT ; PREVIOUS ;CURRENTAVALUE ; INDICES 
[1] ‘BUBBLE: ARGUMENT NOT ARRAY ' ERROR 2=ppJUMBLE 
[2j INDICES+1 (pJUMBLE)(1] 
(31 CURRENT+1 
[4] CURRENT: *EWDSCURRENT WHEN (pINDICES)<CURRENT+*CURRENT+1 
[5] ¿CURRENT ТР JUMBLELINDICESLCURRENT-1];] LEQ JUMBLELINDICESLCURRENT];] 
[61 CURRENTAVALUE+INDICES[CURRENT] 
C7] IWDICES[CURRENT]+INDICES[CURRENT-1] 
[8] INDICESLCUERENT-1]+CURRENTAVALUE 
[9] PREVIOUS+CURRENT-1 
[103 APREVIOUS:+ENDAPREVIOUS WHEN 1>PREVIOUS+PREVIOUS-1 
(111 +ENDAPREVIOUS WHEN JUMBLELINDICESLPREVIOUS]:] LEQ JUMBLE[CURRENTAVALUE;] 
[121 INDICES[ PREVIOUS+4 ]+INDICES( PREVIOUS| 
[13] INDICES( PREVIOUS «-CURRENTAVALUE 
i14] +APREVIOUS 
(15) EXDAPREVIOUS: +ACURRENT 
[16] E¥DSCURRENT: SORTED+JUMBLEL INDICES ; 1 
Ж 


FIGURE 6.13. Another bubble sort. 


v TIMER X 
[1] +RSPORT IF X=1 
(2) SEPENME ES 1 


[4] REPORT:'THE CPU TIME IN SECONDS IS ';((121)-SAVETIME)960 
v 


FIGURE 6.12. A timing routine. 
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from the current value, giving the amount of time elapsed. Notice that 
the variable SAVETIME cannot be made local to the function, since it 
would then cease to exist after the program is exited at line 3. A vari- 
able which is not local is called global. We will adopt the convention 
here that all global variable names which appear in programs are under- 
lined, so that in reading the program we can differentiate immediately 
between those variables whose values are assigned by the program and 
those whose values are assigned before the program is called. 

We can embed TIMER and the bubble sort programs in a routine 
like COMPAREABUBBLES in Figure 6.13 to compare the amount of 
CPU time taken by each of the bubble sorts; so that both sorting pro- 
grams can exist in the same workspace we have temporarily renamed 
the one in Figure 6.11 (the later one) as BUBBLE2. 

On the small examples in Figure 6.14 the times are very close; it is 
probably more interesting to note the way that small changes in the 
data can affect the times rather than to look at the times themselves. 

On the larger sorting tasks, differences do appear between the two 
routines, but the second one is not always faster. We can see the reason 
by examining BUBBLE2 more closely. Each time we find a row of the 
array JUMBLE, we have to do double indexing through the vector IN- 
DICES, as on line 5. This is bound to be more costly than single index- 
ing and can overtake the gain we make by not actually moving rows. 
When the number of columns is small, it is not very expensive to move 
rows around and the first program does a little better. When there are 
many columns, then the second program does perform slightly faster. 
Clearly, if you knew which kind of array you had to sort, you could 
pick the program accordingly. This is true in general: a program's de- 
sign should be tailored to the data on which it will operate. 


EXERCISES 


6-9. Does one of the two bubble sort programs use significantly less 
workspace room than the other? Why or why not? (Note: When 
a program is running, it may take up more space than when it is 
inactive.) 

6-10. Write a program which sorts the elements of a numeric vector 
and compare its performance with the grade-up operator. 

6-11. While we cannot use the comparison (except for - and 4) and 
grade-up operators with character vectors, we can use them with 
numeric vectors. Write a sorting program which sorts the rows of 
a numeric array. 


V COMPAREABUBBLES JUMBLE ;NOOPRINT 
[1] TIMER 0 
[2] — HOAPRINT-BUBBLE JUMBLE 
[32 TIMER 1 
[4] — TIMER 0 
[S] — NOAPRINT-BUBBLE2 JUMBLE 
L6] TIMER 1 
v 


FIGURE 6.13. Comparing the bubble sort. 


COMPAREABUBBLES (5,5)p'EVERYGOOD BOY DOES FINE ' 
THE CPU TIME IN SECONDS IS 1.216666667 
THE CPU TIME IN SECONDS IS 1.316666667 


COMPAREABUBBLES (5.5)o'EVERY GOOD BOY DOES FINE' 
THE CPU TIME IN SECONDS IS 1.63333333 
THE CPU TIME IN SECONDS IS 1,56666667 


2+170'2' 

COMPAREABUBBLES (30,100)p2,2,'Y',2,2, X' ,2,2, 'W' ,2, 'V' 2,2, 'U' E 
ТНЕ CPU TIME IN SECONDS IS 169.5166667 
THE CPU TIME IN SECONDS IS 159.1333333 


COMPAREABUBBLES (50,20)p2,'Y' ,Z,'X' ,Z,  W',Z 
TRE CPU TIME IN SECONDS IS 235.5833333 
THE CPU TIME IN SECONDS IS 240,7166667 


FIGURE 6.14. Comparisons of the two algorithms. 
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6-12. 


6-13. 


6-14. 


6-15. 


Write a sorting program for character arrays which first trans- 
forms the array to a numeric one, by replacing each character 
with its index in the vector ALPHA. Compare the performance 
of this program with a similar one which does not transform the 
array. 

Rewrite TIMER so that it rounds off the time to two digits after 
the decimal place. Does this give less significant information? 
In LEQ the common size of the arguments is evaluated on line 9 
every time through the loop. How much more efficient does the 
bubble sort become if we assign this size to a variable before 
entering the loop and then reference that variable in line 9? 
Donald Knuth, in his book Sorting and Searching (Reading, 
Mass.: Addison-Wesley, 1973), compares the bubble sort with a 
number of different algorithms for sorting and concludes, “Іп 
short, the bubble sort seems to have nothing to recommend it, 
except a catchy name and the fact that it leads to some interest- 
ing theoretical problems." Theoreticians might wish to investi- 
gate some of those "interesting" problems. However, if you need 
to sort some data, we recommend taking a look at the book and 
finding out which algorithms are considered better. 
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Ав you will probably have discovered by now, no matter how carefully 
one writes a program and enters it into the machine, there is a good 
chance that it will not behave as expected. Sometimes the errors are 
typographical, sometimes logical, and sometimes due to a misunder- 
standing of some feature of APL, but errors there always are. Rooting 
out and eliminating errors is called debugging. Programming and debug- 
ging are often complimentary arts: a person may be especially talented 
at one and only barely acceptable at the other. The following statement 
expresses some of the differences in these tasks: 


Different programming phases give different programmers a chance 
to shine. For example, when we are making the overall design of a 
program, what we most need is the ability to create new program- 
ming ideas and to screen them on the basis of broad principles. 
Examples of such screening ideas are symmetry of structure and 
generality of function—one leads to simple coding of difficult prob- 
lems and the other leads to the solution of difficult problems with 
simple coding. Still, these critical abilities are useless if there is a 
paucity of ideas to which to apply them. Nothing cannot be criti- 
cized. Thus, a programmer lacking in either ability—creativity or 
selectivity—will be handicapped in attempting to design programs. 

When coding, however, different abilities come to the fore. In- 
stead of the broad, sweeping mind, the mind which is clever at small 
things now excels. Then, when testing, the programmer must switch 
to yet another group of gifts—particularly the eye for wholeness, or 
gestalt, Consider the following tale. 


"I was eating breakfast and reading an article by Stephen 
Spender called *The Making of a Poem.' On page 120, I reached 
the end of one section and set the book down to put some more 
sugar on my cereal. When I picked the book up again to start 
reading a section called ‘Memory,’ I immediately had a feeling 
that there was something wrong in the first sentence which 
started: 


“If the art of concentrating in a particular шау... ." 


I felt, more or less simultaneously, that the trouble was in the 
word ‘particular’ and that it involved a misprint. The misprint, 
however, was rather confusing for I sensed that it was letter 
inversion but I also sensed—a little bit more weakly, though, I 
have a definite impression of that—that there was a letter miss- 
ing. I examined the word *particular'—which, by the way, | often 
mistype as ‘particluar’—first for the inversion and, failing to find 
that, for the omitted letter. I spent a rather long time looking 
for the error—I could measure that because I ate five or six 
spoonfuls of cereal in the process, the amount I ordinarily eat 
between sips of water. But I could not find anything wrong, 
and when I reached for the water glass, I was rather confused, 
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“Тһе water glass was empty, so I set down the book and 
went to the sink to fill it. Upon returning, I drank some water, 
picked up the book, and started to read. I finished the paragraph 
without further difficulty, but when I commenced reading the 
next, I immediately saw that the line: 


‘All poets have this highly devolped sensitive apparatus. . , .” 


contained the misprint of the word ‘devolped’, which stood in 
the same position in that sentence as ‘particular’ had stood in 
the first sentence of the preceding paragraph. I had the right 
impression, but I had ‘focussed’ wrongly." 


Although this error was in printing, its discovery and location 
followed very closely the process by which many programming 
errors are found. First, there is only the gestalt, a general feeling 
that something is out of place without any particular localization. 
Then follows the ability to shake loose from an unyielding situa- 
tion—the ability to change one's point of view, even by employing 
external devices such as going for a glass of water, Then, however, 
one must go from the general to the particular—'focussing,' as it 
was called here. Although one does not find errors efficiently by a 
detailed search of each line, or word, or character, the ability to get 
down to details is essential in the end. Thus, for debugging, an al- 
most complementary set of mental powers is needed. No wonder 
good debuggers are so rare!' 


Unfortunately, very few of us can avoid having to debug our own 
programs at least once in a while, Debugging can make one feel like Dr. 
Watson in a Sherlock Holmes story—there are clues falling all around 
and yet they just won't point to the murderer. Anyone who has been 
programming for as long as two weeks has a stock of anecdotes about 
debugging tasks and it can be very interesting (for a while) to listen to 
some of these. While debugging is usually a bit difficult, it can some- 
times be close to impossible. Almost always, when a program is impos- 
БіМе to debug it is because the program is impossible to understand. 
The best defense is to write programs that are clear and readable. АП 
the techniques which we introduce in this book are designed to help 
you write programs that will be both easy to read and easy to debug. 


‘Reprinted with permission of the VanNostrand Reinhold Company, from The Psy- 
chology of Computer Programming by Gerald M. Weinberg, copyright 1971 by 
Litton Educational Publishing, Inc. 
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Debugging Aids 
TRACING AND STOPPING 


In debugging, there is no substitute for working out a program by hand, 
keeping track of every variable and every computation and every 
branch. Start with the lowest level programs, those which don't call 
any others, and don't move to higher level programs until the lower 
level ones are correct. This method, followed with care, is usually suf- 
ficient. Sometimes, however, we need to go to the machine for help. 

Suppose that one of our test cases has produced an incorrect an- 
Swer or an error message. We trace through the program using the test. 
data and can't locate the error. It then occurs to us that we could get 
more insight into the problem if we knew the value being assigned to 
the variable on line 13, or whether the branch in the IF condition on 
line 6 is being taken. One way to find these things out is to insert state- 
ments in the program that print the values of some variable, or simply 
messages identifying their location. If the message AT LINE 7 is printed 
when we expected to branch around it, this certainly gives us more 
information. 

However, APL is provided with tools that let us do exactly this sort 
of tracing without our having to make temporary changes to the pro- 
gram. One of these is the trace command. With one exception, every 
line of a program, when executed, results in some value being generated. 
The value may be something that is being printed, a value which is be- 
ing assigned to a variable, or a line number which is being branched to. 
The exception is an invocation of another program which is not a func- 
tion. We can instruct the system so that whenever certain lines are 
executed the value associated with those lines is to be printed. In Figure 
ТАЛА we list the program SUMRED of Chapter 6. The command in 
Figure 14.1B is the trace command. It can be read, “trace lines 7 and 8 
of SUMRED." The result of the trace is shown by the call SUMRED 3 
in part C. 

The first line being traced which is encountered is line 7. This time, 
the result of the utility program WHEN is the empty vector, so nothing 
is printed after the identification SUMRED[7]. Next, line 8 is executed. 
Since the value of A, 1, is being added to SUM, which is still 0, the value 
evolved on the line is 1, as indicated by the trace. The next two times 
through the loop are similar. No branch is taken from line 7 and, in 
succession, the numbers 2 and 3 are added to SUM, giving partial sums 
3 and 6. Finally, when A receives the value 4 on line 7 the condition is 
true, so the branch is taken to line 10. 

When you are no longer interested in tracing, you can assign either 
0 or the empty vector to the trace “command variable" as shown in 
Figure I4.1D. 


А) 


V SUM-SUMRED ARGUMENT;A 
Lt 'SUMRED: ARGUMENT NOT SCALAR ' ERROR 1<p ,ARGUMENT 
[21 'SUMRED: ARGUMENT NOT POSITIVE ' ERROR OzARGUMENT 
[31 


[u]  m----- THIS PROGRAM FINDS SUM*«1«2«... ARGUMENT 
(5) 50/М%0 
L63 4+0 


[7] AA:vENDAA WHEN ARGUMENT<A+A+1 
[83 $0М+5ИМ+А 
[9j +AA 
(101 ENDAA:+0 
2 


B) 
TASUMRED+7 8 


€) 

SUMRED 3 
SUMRED[7) 
SUMRED[8) 1 
SUMRED[7 ] 
SUMRED[8] 3 
SUMRED[7] 
SUMRED[8J 5 
SUMRED[7] 10 
6 


D) 


PASUMRED*O 
PASUMRED*10 


FIGURE 14.1. An example of tracing. 


ARGUMENT NOT INTEGER ` ERROR ARGUMENT*LARGUMENT 
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Occasionally you will want a bit more information than can be got- 
ten by tracing. You might have a complicated APL expression in your 
program and want to see exactly what it is doing, using exactly the 
same values it is getting in the program. While you could simply enter 
the expression, that might not be sufficient if, for example, you suspect 
that one of the variables in it is a vector of size 1 when it should bea 
scalar. А trace will not show any distinction between these two cases. 
What we can do is ask APL to suspend execution of the program. This 
is done with the stop command. In Figure 14.2 we list the function 
LEQ from Chapter 6 and then instruct the system to suspend the pro- 
gram just before executing line 10; this is like the trace command but 
begins with ‘S’ instead of ‘T’. 

When line 10 is reached, a message is printed telling us where the pro- 
gram is, in case more than one line was given for the stop command. The 
program has not been exited. As you can see from the figure, all the 
local variables still have their values and when we are done examining 
them we can instruct the program to continue execution with line 10. 

Notice that after the third time the program is suspended, we issue 
the system command )SI. SI stands for state indicator, and this is а 
request for a listing of the names of all suspended programs. The first 
line says that LEQ has been suspended in line 10, and the second that it 
was called from line 10 of BUBBLE. 


(i1 
121 
[3J 
(82 
[5j 
[61 
[7] 
(81 
[21 
[10] 
[111 
[12] 


LEQU 


7 TRUE-LEFT LEQ RIGHT;ALPHA;POSITION;POSSIBLE ORDER 
"ГЕФ: LEFT ARGUMENT NOT CHARACTER ‘ERROR OeOXO/LEFT 
'LEQ: RIGHT ARGUMENT NOT CHARACTER ‘ERROR Оє0\0/8ІСНТ 
'LEQ: LEFT ARGUMENT NOT VECTOR ‘ERROR i*poLEFT 
'LEQ: RIGHT ARGUMENT NOT VECTOR ‘ERROR izopRIGHT 
'LEQ: ARGUMENTS НОТ CONFORMABLE 'ERROR(oLEFT)*pRIGET 
ALPHA+' ABCDEFGHIJKLMNOPQRSTUVWYY20123W56789* 
POSSIBLE+,2 
POSITION+0 
APOSITION: +ENDAPOSITION WHEN((pLEFT)«POSITIONePOSITION«1)v (170 POSSIBLE) 
POSSIBLE+(ORDER=| /ORDER*ALPHA1 29LEFT [POSITION] ,RIGHT[ POSITION ])/POSSIBLE 
+bPOSITION 
ENDOPOSITION: TRUE+1=1+ POSSIBLE 
у 


54254410 
BUBBLE (5,8)0'EVERY GOOD BOY DOES FINE" 


101 
POSITION 


POSITION 
POSSIBLE 


+10 


2841101 


1 


POSITION 


)SI 


18010] * 
BUBBLE[10] 


.SALEQ+ 0 
210 


BOY 
DOES 
FINE 
6000 

EVERY 


FIGURE 14.2. Using the stop command. 
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Figure 14.3 shows another request, at a later time, for the state in- 
dicator: there are three groups exactly the same. What probably hap- 
pened is that LEQ was suspended, possibly because APL detected an 
error, and the user corrected the error and called BUBBLE again. This 
left copies of the programs LEQ and BUBBLE still pending. Then, no 
doubt, there was another error and another suspension. The lower sets 
of programs are just sitting there, taking up valuable space іп (пе work- 
space, and should have been released. To release a suspended program 
and all the unstarred programs directly below it, type a right-pointing 
arrow. In this case, to clear the state indicator we would have to type 
three right-pointing arrows in succession (on three different lines). 


EXERCISES 


14-1. Use the system operator I-beam 22 to find out how much space 
is taken up by a stack of suspended programs. 

14-2. Find an I-beam operator which is similar to the system com- 
mand )SI. 

14-3. How many suspended programs are there in your workspace? 

14-4. In Figure 14.2, why is it that POSITION always has the value 1? 
И we had allowed the program to stop on line 10 once more, 
what would the value of POSITION have been? 


LEQ[10] 
)SI 
LEQ[10] * 
BUBBLEL101 
LEQ[10] * 
BUBBLE(10] 
LEQU10] * 
BUBBLE[101 


FIGURE 14.3. Many suspended programs. 
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Learning to Play 
the Game of NIM: 


An Example of Program Construction 


“Taking Three as the subject to reason about— 
A convenient number to state— 

We add Seven, and Ten, and then multiply out 
By One Thousand diminished by Eight. 


“The result we proceed to divide, as you see, 
By Nine Hundred and Ninety and Two: 

Then subtract Seventeen, and the answer must be 
Exactly and perfectly true.” 
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Тһе game of NIM is one which received a good deal of publicity after 
the movie “Last Year in Marienbad” appeared. Supposedly, it was the 
“іп” thing at the parties of the very chic. We will use this game as an 
example to tie together some of the concepts we have been learning. In 
doing so, we will also write a program which figures out the winning 
strategy, although it is not too hard to figure out the strategy without 
the computer's aid. 


AN INTERACTIVE NIM PLAYING PROGRAM 


NIM is played by two people using some number, say 17, of sticks. The 
players alternate, removing one, two or three sticks from the pile. The 
player who removes the last stick loses. Our ultimate goal is to write a 
program for NIM which will learn to play a good game: in fact, NIM 
turns out to be so simple that the program wil! eventually play per- 
fectly. Before we become involved in the details of a learning program, 
we should first try simply to write a program which plays the game and 
then add the more sophisticated features afterwards. 

As a first attempt, we might write a program which will play NIM 
with the user at the terminal. The program should make only legal 
moves and should not allow its opponent to make any illegal moves. 
An important question is, who will make the first move? We could let 
the user decide, or the machine for that matter, but since we don't 
know whether it is important who goes first, we should let that deci- 
sion depend on the toss of a coin. 

We can imagine that the program is really playing two roles: it is 
both a player and the referee, and the two roles should be distinct. If 
we were writing a program to play a card game, such as blackjack (“21”), 
we wouldn't want the part of the program which was betting against 
us to be able to ask the part of the program which was dealing what 
the next card was. 

Figure 7.1 gives a rough outline of the way we might expect the 
game to proceed. First we would decide which player went first and 
set up the 17 sticks. Then the referee would tell the player to go ahead. 
Entering the loop, the first player would propose a move. If the move 
was not legal, the player would try again. If it was legal, then the move 
would be made and the next player would be designated. Looking at 
the structure chart, we see first that it is really impartial: there is no 
distinction between the computer player and the human player. Of 
course, there must be some distinction between them when their moves 
are requested by the referee, but the structure of the program suggests 
that there be a separate program to request moves and that this separate 
program be the one which makes the distinctions. 

We'll call the program which gets the moves INPUT. INPUT must 
have some way to know if it is to ask the human opponent or the 


Decide which player goes first 
Set up the pile of 17 sticks 


Signal the first player to move by printing a message 


DO until there are по sticks left. 


Get the move of the current player 


Is the move legal 
? 


Make the move 
Print an error message 


Signal the next player to 
move 


Print name of winning player 


FIGURE 7.1. Design for a NIM program. 
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machine opponent for a move, so we will pass to INPUT one argument, 
an ‘М’ if the computer is to move next and a ‘P’ if the person is to move. 
Naturally, INPUT will be a function, which returns as its value the next 
move. For the human player we need only use a quad to request input. 
For the computer, while we eventually may have a very complex algo- 
rithm for its next move, at the moment it is playing randomly and so 
we can let it make a random move with the roll operator. A version of 
this program is shown in Figure 7.2. 

There are only two features of the main program which might not 
be completely straightforward. The first is the detection of an illegal 
move. We know that a move is illegal if it is not one, two or three. But 
it is also illegal if it is larger than the number of sticks remaining. Since 
there are two different ways in which a move might be illegal, it seems 
reasonable to print different error messages, depending on which type 
of move is made. This calls for a decision which is not part of our origi- 
nal structure chart and so we will write a separate program to take care 
of it. Program ILLEGAL will have two arguments, the number of sticks 
remaining and the proposed move. If the move is illegal, the program 
will print an appropriate error message; otherwise it will do nothing. 

We will incorporate ILLEGAL into the IF-THEN block in Figure 
7.1. We can do this by making it be a function and having it return a 1 
if the move was illegal and 0 if it was legal. Incorporating ILLEGAL 
with the IF function, we can cause a branch to the loop control state- 
ment if the move was illegal and continue on with the move if it was 
legal. Program ILLEGAL is shown in Figure 7.3. 


V MOVE*INPUT PLAYER 
[1] А----- IF PLAYER = 'P' HUMAN OPPONENT MOVES 
[21 R----- IF PLAYER = 'M' MACHINE MOVES 
[3] ‘INPUT: ARGUMENT SIZE ' ERROR 1#p,PLAYER 
[+3 ‘INPUT: ARGUMENT MEANINGLESS ' ERROR-PLAYERe'MP' 
[5] +MACHINE IF PLAYER-'M' 
[6] +OxMOVE+)) 
[7] MACHINE:MOVE+?3 
У 


FIGURE 7.2. Input for a NIM program, 
у RESULT+STICKS ILLEGAL MOVE 


(11 ө----- STICKS IS NUMBER OF STICKS REMAINING 
-MOVE IS PROPOSED MOVE 


[3] -RETURNS 0 FOR LEGAL MOVE 
СУ] -RETURNS i AND PRINTS APPROPRIATE MESSAGE FOR ILLEGAL MOVE 
[5] LEGAL:LEPT ARGUMENT NOT NUMERIC ' ERROR-0e0NO/STICKS 


[6]  'LEGAL:RIGHT ARGUMENT NOT NUMERIC ' ERROR-0e0NO/MOVE 
[7]  'LEGAL:LEFT ARGUMENT WRONG SIZE ' ERROR 1ғр ,STICKS 
[8]  'LEGAL:RIGHT ARGUMENT WRONG SIZE ' ERROR 129 ,MOVE 
[9]  RESULT-0 
[10] -INARANGE IF MOVEe 1 2 3 
[11] ‘ILLEGAL MOVE: ONLY 1 2 OR 3 IS PERMISSIBLE' 
[12] »0xRESULT«i 
[131 INARANGE:*0 IP MOVESSTICKS 
[14] 'ILLEGAL MOVE:CANNOT TAKE MORE THAN ';STICKS 
[15] RESULT+1 
v 


FIGURE 7.3. Checking for illegal moves. 
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One of the simplest ways to keep track of which player goes next 
is by means of a switch. A switch is a variable which alternates be- 
tween some set of values: the change in value occurs when some oper- 
ation is performed on it. Here, we will let the switch alternate be- 
tween values 1 and 2. In this way, using the switch to index the vector 
‘MP’ gives the proper argument, A first version of the NIM program 
is shown in Figure 7.4. Notice how we use the variable PLAYERS, 
indexed by the switch, NEXT, to print the proper message indicat- 
ing who moves and who wins. A sample game is shown in Figure 7.5. 


V NIM;NEXT;STICKS;PLAYERS;PROPOSAL 
[1] NEXT+?2 
21 а----- NEXT DETERMINES WHICH PLAYER MOVES NEXT 
3] PLAYERS+(2,3)o' I YOU' 
41 БТІСК5+17 
[5] ASTICKS:>ENDASTICKS WHEN O-STICKS 
te] PLAYERS(NEXT;1,' MOVE' 
t71 PROPOSAL-INPUT 'MP'[NEXT) 
[8] -ASTICKS IF STICKS ILLEGAL PROPOSAL 
91 STICKS-STICKS-PROPOSAL 
[10] NEXT«3-WEXT 


[11] Aa----- TRANSFORMS 1 TO 2 AND 2 TO 1 
[12] +ASTICKS 
[13] a----- AT END, NEXT POINTS TO WINNER 


[1+] ENDASTICKS:PLAYERS[NEXT;],' WIN!' 
У 


FIGURE 7.4, Тһе NIM program. 


NIM 
I MOVE 
YOU MOVE 
D: 

3 
I MOVE 
YOU MOVE 
0: 


4 
ILLEGAL MOVE: ONLY 1 2 OR 3 IS PERMISSIBLE 
YOU MOVE 
B: 


1 
I MOVE 
YOU MOVE 
0: 


3 
I MOVE 
ILLEGAL MOVE: CANNOT TAKE MORE THAN 1 
I MOVE 
ILLEGAL MOVE: CANNOT TAKE MORE THAN 1 
I MOVE 
YOU WIN: 


FIGURE 7.5. A game of NIM. 


193 


194 


Learning to Play the Game of NIM 


One unfortunate feature becomes immediately apparent: after the 
machine moves, its opponent has no way of knowing how many sticks 
remain. This is easily corrected by inserting an appropriate message. 
We might also consider the possibility that the machine's opponent 
does not know the rules of the game. It is easy enough to write a 
small program which explains how the game works and to have NIM 
ask the user to find out if it is necessary to call it. The RULES pro- 
gram and the revised NIM program are shown in Figure 7.6, followed 


V RULES 


1 'THE GAME OF NIM IS PLAYED WITH 17 STICKS‘ 
2 'YOU AND I TAKE TURNS REMOVING 1,2 ОВ 3 STICKS' 
[3j 'WHICHEVER OF US REMOVES THE LAST STICK LQSEG' 


4] 'MAKE YOUR MOVE WHEN I ASK FOR IT BY TYPING' 
5 "Du 


V NIM;,NEXT;STICKS;PLAYERS;PROPOSAL;YES;NO 
13 ‘DO YOU WISH TO SEE THE RULES? ANSWER YES OR ПО" 
2 +5ТАВТ IFD=N0+~YES+1 


3] RULES 
[s START:NEXT<?2 
51 8----- NEXT DETERMINES WHICH PLAYER MOVES NEXT 


61 PLAYERS-(2,3)p' I You! 

[7 STICKS+17 

8 ASTICKS:+ENDASTICKS WHEN 0=5Т1СК5 
[9] STICKS;' STICKS LEFT' 

[10] PLAYERS(NEXT;],' MOVE! 

(111 PROPOSAL*INPUT 'MP'[NEXT) 

[12] >485ТІСК8 IF STICKS ILLEGAL PROPOSAL 
[13] STICKS«-STICKS-PROPOSAL 

[14] NEXT«3-NEXT 


[15] в----- TRANSFORMS 1 70 2 AND 2 TO 1 
[16] >45710К8 
(171 а----- AT END, NEXT POINTS TO WINNER 


(181 ENDASTICKS:PLAYERSUNEXT;],' WIN!' 
У 


FIGURE 7.6. Revised NIM with rules. 
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by a sample of the play in Figure 7.7. 


EXERCISES 


7-1. Correct line 9 of the latest NIM program so that it will not plural- 
ize and write STICKS when only one is left. 

7-2. As the program is now written, the machine can make an illegal 

move by taking more sticks than are left and a message will be 
printed. Correct the program INPUT by adding as an argument 
the number of sticks and then ensuring that the machine never 
makes an illegal move of this form. 
Note: Having done this, it would be logical to move the entire 
program ILLEGAL and check for legality of the person's move 
inside INPUT. We will, for the sake of continuity only, keep the 
structure which we have developed so far for the program. 

7-3. Propose an alternate method of asking whether the player wants 
to see the rules. You should analyze ways in which the current 
scheme is unsatisfactory before proposing an alternate. 

7-4. Is it possible to reconstruct the machine's moves in Figure 7.5? 


A LEARNING MACHINE 


The technique we will use to give the program some learning ability is 
reward-and-punishment. We cannot directly reward or punish a move, 
since we don't know until the game is over whether the move led to a 
win or to a loss; we can, however, reward or punish the entire sequence 
of moves the machine made during one game. Before we try to design 
а technique for doing this, we might look ahead to ask how we will 
keep the program's memory of which moves have, on the average, been 
better and how we will use this memory to play the game. 

One reasonable way to proceed is to define a 17-by-3 array to be 
the memory. The entries of the array will correspond in some way to 
the relative worth of the various moves. When it comes time to move, 
if there are t sticks in the pile, the program will examine the th row of 
the array and choose one of the three possible moves in accordance 
with the values in that row. We would probably not want to use any 
well-determined algorithm, such as “make the move corresponding to 
the largest entry," because this does not give the learning program 
enough chance to experiment with different possibilities. Instead, we 
will use a simple form of what is called a Monte Carlo technique. 

In each row of the array, the entries will be nonnegative and will 
sum to 1. We will choose a random number between 0 and 1; if the first 
element in the row is at least as large as this random number, the ma- 
chine will remove one stick; if the sum of the first and second elements 


NIM 
DO YOU WISH TO SEE THE RULES? ANSWER YES OR NO 
U: 

но 
17 STICKS LEFT 
I MOVE 
15 STICKS LEFT 
YOU MOVE 
D: 

3 
I MOVE 
11 STICKS LEFT 
YOU MOVE 
ü: 

1 
10 STICKS LEFT 
I MOVE 
7 STICKS DEPT 
YOU MOVE 
g: 

3 
4 STICKS LEFT 
I MOVE 
3 STICKS LEFT 
YOU MOVE 
D: 

3 
I иш! 


NIM 
DO YOU WISH TO SER THE RULES? ANSWER YES OR Ni 
0: 
185 
THE GAME OF NIM IS PLAYED WITH 17 STICKS 
YOU AND I TAKE TURNS REMOVING 1,2 OR 3 STICKS 
WHICHEVER OF US REMOVES THE LAST STICK LOSES 
MAKE YOUR MOVE WHEN I ASK FOR IT BY TYPING 
D: 
17 STICKS БЕРТ 
I MOVE 
1% STICKS LEFT 
YOU MOVE 
D: 
3 
11 STICKS LEFT 
I MOVE 
9 STICKS LEFT 
YOU MOVE 
0; 
3 
6 STICKS БЕРТ 
I MOVE 
3 STICKS LEFT 
YOU MOVE 
D: 
2 


1 STICKS LEFT 
I MOVE 
YOU WIN! 


FIGURE 7.7. Two more NIM games. 
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is at least as large, then the machine removes two sticks; otherwise, it 
takes three sticks. 

The revised program INPUT is shown in Figure 7.8. The memory 
array is called HISTORY: notice that it is a global variable. This is be- 
cause it must exist independently of the program INPUT. It is now 
necessary to know the number of sticks remaining, so we have added 
а second argument to INPUT. (Of course, this change will have to be 
reflected in the calling program, NIM.) Lines 10-14 are an implementa- 
tion of the Monte Carlo procedure. 

Our aim is to get a vector whose first element is the first element 
of the appropriate row of HISTORY, whose second element is the sum 
of the first two elements in the row and whose third element is the sum 
of all the elements in the row. One way to do this is to produce a three- 
by-three array in which the first column contains the first element of 
the row of HISTORY and two zeros, the second column contains the 
first two elements of the row and one zero and the third column con- 
tains all the elements of the row: doing a sum reduction would then 
yield the appropriate vector. 

The array formed on line 10 is not quite the one we want. Above 
the main diagonal (the left-to-right diagonal formed by the elements 
whose row and column indices are equal), the array does have the 
proper form but there is an unwanted nonzero element below. We 
correct for this and then take the sum reduction of the result. Line 13 
chooses a number randomly between 0 and 1 and then in line 14 the 
move made is taken to be the first position in which the vector of suc- 
cessive sums is at least as large as the random number. 

In line 14 we actually take the minimum of the calculated move 
and 3. We do this because no computer can do its calculations per- 
fectly. Any computer is limited to some finite number of decimal 
places, but there are some numbers which cannot be so expressed: 1/3 
is not equal to the number with 16 (or 60) threes after the decimal 
point. While APL arithmetic is so good that we rarely see problems 
arising from this limitation, they can occur, If the sum of the elements 
of some row of HISTORY were slightly smaller than 1, for a suffi- 
ciently large random number the result of the index operation on line 
14 might be 4, so we correct for this possibility by ensuring that the 
move chosen is never larger than 3. 

We now need a scheme for remembering the moves made in a game 
and modifying HISTORY as a result of the outcome. An easy way to 
modify it is to add some number to positions corresponding to winning 
moves and to subtract some quantity from positions corresponding to 
losing moves. This suggests that we remember the moves by creating, at 
the beginning of each game, another 17-by-3 array. This array, GAME, 
will be initially 0, but when the machine takes MOVE sticks from a pile 
containing CURRENT, we reset GAME[CURRENT;MOVE] to 1. Then, 
at the end of the game, we have only to add or subtract GAME from 


[13 
[21 
[3] 
[u] 
Cs] 
[61 
[7] 
[8] 
[9] 
[10] 
[11] 
[12] 
[13] 
(181 


MOVE+CURRENT INPUT PLAYER; DISTRIBUTION RANDOM 
-CURRENT IS NUMBER ОҒ STICKS REMAINING 
-IF PLAYER - 'P' HUMAN OPPONENT MOVES 
-IF PLAYER - 'M' MACHINE MOVES 


LEFT ARGUMENT SIZE ' ERROR 1*p,CURRENT 
RIGHT ARGUMENT MEANINGLESS ' ERROR~PLAYERe'MP* 
‘INPUT: LEFT ARGUMENT NOT NUMERIC ' ERROR~OQe€0\0/CURRENT 
+MACHINE IP PLAYER-'M' 

>0хМ0УЕ-П 
MACHINE : DISTRIBUTION+ (3,3) pHIGIORZ (CURRENT; 1,0 
DISTRIBUTIONL3;1]«0 

DISTRIBUTION++/[1] DISTRIBUTION 

RANDOM-(7142101):100 

MOVE«3L (DISTRI BUTIONZRANDOM) 11 


FIGURE 7.8. Revised input program. 
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HISTORY. Setting the elements of GAME can be done in INPUT and 
we can write a new routine, UPDATE, to modify HISTORY at the end 
of a game. We should be careful here, as it is not sufficient to simply 
add or subtract GAME from HISTORY. First of all, we assume in IN- 
PUT that the sum of each row of HISTORY is 1, so that we will have to 
normalize HISTORY to make this true again each time we modify ір 
with GAME. A second problem is that when we subtract, we run the 
risk of making some element of HISTORY negative. We can correct for 
this in a simply way: instead of adding or subtracting some fixed value 
from the elements of HISTORY, we can subtract some fraction of their 
values. 

Figure 7.9 shows the program UPDATE. The sum reduction of 
HISTORY at the right of line 8 produces a vector with 17 elements, the 
row sums of HISTORY. To normalize HISTORY, we have only to di- 
vide the elements by the corresponding row sum. Unfortunately, we 
cannot divide the array by the vector, as their sizes do not match. We 
can, however, divide the array by another array of the same size in 
which all the elements of a row are equal to the corresponding row sum 
of HISTORY. To create such an array, we have to create a 3-by-17 array 
for which all the elements of each column are equal to the correspond- 
ing row sum of HISTORY and then take its transpose (interchange 
rows and columns). Notice also that the fraction of HISTORY which 
we add or subtract is set as a variable MODIFIER near the beginning of 
the program. Since we don't know what values are good (if, indeed, it 
makes any difference), this makes it easy to make changes and try dif- 
ferent values. 

The modified INPUT and NIM programs are shown in Figures 7.10 
and 7.11 respectively. This package of programs will learn to play NIM, 
but if you try it out you will see that it is abysmally slow. What we need, 
to get the program to learn faster, is to remove the human element, as 
much of the slowness is involved in the printing and the requests for 
the human player's move. We could substitute a random move for the 
human input, but, logically, the program will not learn to play much 
better than its opponent and so having it play a random player will also 
result in slow learning. If we knew the best possible way to play, we 
could certainly replace the human player by a program which played as 


[1] 
[21 
(31 
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[61 
[7] 
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(91 

[101 
[11j 
[12] 
{131 
[141 
(151 
[16] 
117] 
[181 
1191 
(201 
121} 


V UPDATE WINNER;MODIFIER 

-WINNER IS 1 IF MACHINE WON, 0 FOR HUMAN 
-MODIFIER IS FRACTION USED TO CHANGE HISTORY 
MODIFIER*0.25 

-MACHINE ІР WINNER=1 
HISTQRY-UISIQRI-MODIFIER«HRISIQRI*GAME 

+NORMALIZE 

MACHINE: HISTORY*HISTORI+MODIPIERXYISTORI* GAME 


NORMALIZE:HIGIORI-HISIORHI tw (3.17)0*/RIGTQRI 
v 


RE 7.9. Updating memory. 


У MOVE«-CURRENT INPUT PLAYER;DISTRIBUTION;RANDOM 
-CURRENT IS NUMBER OF STICKS REMAINING 
-IF PLAYER - 'P' HUMAN OPPONENT MOVES 
-IF PLAYER s 'M' MACHINE MOVES 

C"INPUT: RIGHT ARGUMENT SIZE ' ERROR i*p,PLAYER 

‘INPUT: LEFT ARGUMENT SIZE ' ERROR 1*£p,CURRENT 

‘INPUT: RIGHT ARGUMENT MEANINGLESS ' ERROR-PLAYERe'MP' 
‘INPUT: LEFT ARGUMENT NOT NUMERIC ' ERROR-0c0NO/CURRENT 
-MACHINE IF PLAYER-'M' 

>0хМ0УЕ-0 
MACUINE:DISTRIBUTION*-(3 ,3)püIGIQRILCURRENT;),0 
DISTRIBUTIONU3;11*0 

DISTRIBUTION++ /[1] DISTRIBUTION 

RANDOM+( 7147101) #100 

MOVE«3L (DISTRIBUTIONZRANDOM) 11 

GAMELCURRENT ;МОУЕ] +1 


v 


RE 7.10. More revisions to INPUT. 


9 WIM;NEXT ; STICKS ; PLAYERS ; PROPOSAL ; YES ,NO; GAME 
й----- GAME IS THE RECORD OF MOVES MADE BY MACHINE ІН INPUT 
САЦЕ+ (17 ,3)ро 
"00 YOU WISH TO SEE THE RULES? ANSWER YES OR NO' 
>START IPU-NO*-YES«1 


RULES 

START; NEXT+?2 

arses NEXT DETERMINES WHICH PLAYER MOVES NEXT 
РГАҮЕВ5+(2,3)р' I YOU! 

STICKS+17 


ASTICKS:-ENDASTICKS WHEN 0=STICKS 
STICKS;' STICKS LEFT' 
PLAYERSUNEXT;].' MOVE" 
PROPOSAL*STICKS INPUT 'MP'L[NEXT) 
-ASTICKS IF STICKS ILLEGAL PROPOSAL 
STICKS«STICKS -PROPOSAL 


NEXT«*3-NEXT 

еее = TRANSFORMS 1 TO 2 AND 2701 
CASTICKS 

a----- AT END, NEXT POINTS TO WINNER 


ENDASTICKS : PLAYERS(NEXT;1,' WIN?" 
UPDATE NEXT 
v 


FIGURE 7,11. More revisions to NIM. 201 
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well as possible. Barring that, we can still do better than random by 
replacing the human player by one which uses all the information about 
the game which we have—the array HISTORY. The program NEWAIN- 
PUT in Figure 7.12 does exactly this. Since the modification we have 
proposed would have resulted in our having the same code for choosing 
a move from HISTORY appear twice in NEWAINPUT, we instead wrote 
a program MAKEAMOVE to pick a move from HISTORY, and call it in 
two different places from NEWAINPUT. MAKEAMOVE appears іп 
Figure 7.13. 

This goes some way toward speeding up the learning, but it would 
be much better if we could have some large number of games played 
one right after another, without any printing at all, except perhaps for 
а message every five games to indicate that the program is still running 
and that the machine has not “hung up." 

The program MANYANIM in Figure 7.14 implements these changes 
It accepts one argument, the number of games to be played. It runs 
through the loop which begins on line 6 to play that many games. On 
lines 20 and 21, if the number of games played so far is a multiple of 
5, a message is printed. After each game, the array HISTORY is up- 
dated and, at the end of the session, the array is printed. To make the 
array more legible, we have added on numbers for the rows by con- 
catenating HISTORY with the one column array whose elements are 
1⁄2. 17. 


[1] 
[21 
[3] 
[5] 
[5] 
[6] 
[73 
[81 
[9] 


V MOVE-CURRENT NEWAINPUT PLAYER 

-CURRENT IS NUMBER OF STICKS REMAINING 

-IF PLAYER - 'P' HUMAN OPPONENT MOVES 

8----- IF PLAYER = 'M' MACHINE MOVES 

'NEWAINPUT: RIGHT ARGUMENT SIZE ' ERROR izp,PLAYER 
'NEWAINPUT: LEFT ARGUMENT SIZE ' ERROR 1*p,CURRENT 
"NEWAINPUT: RIGHT ARGUMENT MEANINGLESS ' ERROR-PLAYERe'MP' 
‘INPUT: LEFT ARGUMENT NOT NUMERIC ' ERROR-0e0NO/CURRENT 
+MACHINE ІР PLAYER='M' 

+0хМОУЕ+МАКЕВМОУЕ CURRENT 


[103 MACHINE: MOVE*MAKEAMOVE CURRENT 
1111 


GAMELCURRENT;MOVE]*«1 
У 


FIGURE 7.12. Using memory for both players. 


[1] 
t2] 
[3] 
[s] 
[sJ 
[61 


V MOVE+MAKESMOVE CURRENT ;DISTRIBUTION ;RANDOM 
awasi CURRENT IS THE NUMBER OF STICKS 
DISTRIBUTION<(3,3)pBISZIQEI[CURRENT;l,0 
DISTRIBUTION[3;11«0 
RANDOM-( 1«2101)4100 
DISTRIBUTION*+/{1] DISTRIBUTION 
МОУЕезі (DISTRIBUTIONZRANDOM)Ai 

У 


fIGURE 7.13. Generating а move. 


[10] 
11] 
[12) 
[13] 
[14] 
[151 
[161 
[17] 
{18) 
[191 
[20] 
[211 
[221 
[23] 
[25] 


E 


v 


MANYANIM PLAYS ;MOVE ;STICKS GAME ;ROUND;NEXT 

^ --PLAYS IS THE NUMBER OP GAMES TO BE PLAYED 

^ --GAME IS THE RECORD OF MACHINE MOVES MADE IN WEWAINPUT 
‘MANYANIM: ARGUMENT NOT NUMERIC * ERROR-OcONO/PLAYS 
'MANYANIM: ARGUMENT NOT SCALAR ' ERROR i«p,PLAYS 


'MANYONIM: ARGUMENT NOT POSITIVE INTEGER ' ERROR(PLAYS*|PLAYS)VPLAYS«O 


ROUND«O 
AROUND:-ENDAROUND WHEN PLAYS<ROUND+ROUND+1 
GAME (17,3)00 

NEXT +22 

я----- NEXT DETERMINES WHICH PLAYER MOVES NEXT 
STICKS*17 
ASTICKS:+ENDASTICKS WHEN O0-STICKS 
MOVE*STICKS NEWAINPUT 'MP'[NEXT 
SPICKS+STICKS-MOVE 

WEXT+3-NEXT 

в----- TRANSFORMS 1 TO 2 AND 2 TO 1 
ZASTICKS 
--AT END NEXT POINTS TO WINNER 
BIDASTICKS: UPDATE NEXT 

cAROUND IF 0#5|ROUND 

ROUND;' GAMES HAVE NOW BEEN PLAYED' 
"AROUND 
ENDAROUND:'THE LEARNING ARRAY IS NOW' 
((17,1)0:17),Ш187081 


FIGURE 7,14. А NIM tournament. 
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In Figure 7.15, we show a simple program to start the array HIS- 
TORY off with equal probabilities for all legal moves. (Note that 
since only legal moves can now be made, the class to program ILLE- 
GAL has been eliminated from MANYANIM.) Figures 7.16, 7.17 and 


У INITIALIZE 
[1]  HISZORI-(i7,3)p(1 0 0 0.5 0.5 0),(%5р:3) 
v 


FIGURE 7.15. Initializing the memory array. 


5 GAMES HAVE NOW BEEN PLAYED 
10 GAMES HAVE NOW BEEN PLAYED 
15 GAMES HAVE NOW BEEN PLAYED 
20 GAMES HAVE NOW BEEN PLAYED 
THE LEARNING ARRAY IS NOW 


1 1 9 ° 

2 0.7596439169 0.2403560831 0 

3 0.27%%163888 0.6090151972 0.115769414 
4 0.2057142857 0.4285714286 0.3657142857 
5 0.3333333333 0.3333333333 0.3333333333 
6 0.2u32432u032 0.32%32%32%3 0,432432432% 
7 ТЕТІГІ 0.3555555556 0.2 

8 0.3333333333 0.4166656667 0.25 

9 0.4324324324 0. 2432432432 0.3243243243 
10 0.3293310463 0,4391080617 0.2315608919 
11 O.4604316547 0.1942446043 0.3u53237u1 
12 0.3921568627 0. 2941176471 0.3137255902 
13 0.3636363636 0.2727272727 0.3636363636 
14 0.5714285714 0.1542857143 0.27828571%3 
15 0.2195121951 0.3902%3902% 0,330243902% 
15 0, 2195121951 0.390243902u 0.3902439024 
17 0.1293929712 0.3594249201 0.5111821086 


FIGURE 7.16. After 20 games. 


THE LEARNING ARRAY IS NOW 


1 1 9 ° 

2 0.9905896161 0.009510383883 0 

3 0.0832067461 0,8816904079 0.03510284601 
“ 0.02770587435 0.01662352u61 0.955670601 

5 0.32778%8912 0.3841229193 0.2880921895 
6 0.5396290051 0,1365935919 0.323777%03 

7 0.4888156275 0.%296231101 0.08156126232 
8 0.1217957891 0,1522447364 0.7259594745 
9 0,225205946 0.3624296511 0,%12364403 
10 0.280701754% 0,2807 017544 0.438596u0912 
11 0.3940110323 0.4925137904 0.1134751773 
12 0.1257023106 0, 2157823172 0.6585153723 
13 0.5395683453 0.1657553957 0. 2946762539 
1% 0.1884597487 0.%76500698 0.3350395533 
15 0.3803863299 0.2852897474 0.33%3239227 
16 0.%739336493 0.355550237 0.1706161137 
17 0.2406617006 0.2115190728 0,5u78192266 


FIGURE 7.17. After 100 games. 
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1.18 show the results of running MANYANIM. 

After the first session of 20 games the results are still rather uni- 
form, although it has at least learned to remove only one stick from a 
pile of two. After 100 games there are clearer proclivities, especially 
for smaller numbers of sticks. If there are four left, it is sure that three 
should be removed; if six, then it usually removes one and so on. 

The numbers after 300 trials have been printed differently from 
what we have seen before. This is the so-called "scientific" or “ехро- 
nential” notation. A number is represented as a mantissa between 1 and 
10 (or 0) before the E and a characteristic after the E which represents 
a power of 10. Thus, 2.5E3 means 2.5 X 10? or 2500. APL will convert 
to this notation when the numbers it has to present have too many 
digits to be written exactly: sometimes this may mean that you are not 
seeing all of the digits which APL is keeping. 

After 300 games, it has a clear strategy. It tries to leave the oppo- 
nent with one, five, nine or thirteen sticks. Indeed, this is a winning 
strategy. If you can leave your opponent with thirteen sticks, then no 
matter what the opponent's move, you can always move to leave nine. 
Then, you can move to leave five, and, finally, whether the opponent 
takes one, two or three, you can move to leave one—and win. Notice 
that this strategy only works for the second player; the first player 
cannot win against this strategy. This is also reflected in the array; the 
values in rows 5, 9, 13 and 17 are not as clearly defined as the others, 
since it tends not to matter what move is made from these positions. 

Obviously, it is not always this easy to find the perfect strategy for 
a game. Nevertheless, heuristic techniques such as the one we used 
here are used in many learning situations and form an integral part of 
the field called Artificial Intelligence. 


EXERCISES 


7-5. In UPDATE, why do we need to create a 3-by-17 array and then 
use the transpose operator? Why not start with a 17-by-3 array 
directly? 

7-6. Find out how the value of MODIFIER affects the rate at which 
the program learns. 

7-7. We could have created the array DISTRIBUTION element by 
element in only a few lines of program. What do we gain by be- 
ing fancy? What would we lose by doing it the simple way if we 
permitted each player to take 20 sticks from a pile which starts 
at 297? 

7-8. The assignment of DISTRIBUTION сап be done in a slightly dif- 
ferent way as well. To get rid of the nonzero elements below the 
diagonal, we could simply multiply DISTRIBUTION by an array 


THE LEARNING ARRAY IS WOW 


1.000000000£50 
2.000000000Е0 
3.000000000Е0 
ч, 000000000Е0 
5,000000000Е0 
6.00000000050 
7.000000000Z0 
8.000000000£0 
3.00000000050 
1.00000000081 
1.100000000£1 
1.20000000051 
1.300000000Е1 
1.%00000000Е1 
1.500000000Е1 
1.600000000Е1 
1.700000000Е1 


1.000000000Е0 
9.999037%70871 
2.976772%23Е76 
3.612688552Е76 
2.026202213Е71 
9.998641880E 1 
2.820161878Е73 
8.759527861875 
2.208287895E 1 
9.986782589871 
7.03577052%Е73 
3.357930161872 
5.460079990E 4 
9.979010538871 
8.159561211Е72 
2.075675676Е71 
4.925909815871 


FIGURE 7.18. After 300 games. 


0.000000000£0 
9.625295193575 
9.9999508655E 1 
5.292024246Е 6 
3.602137268871 
7.975285828E7 5 
9.953208447871 
1.946561787E 4 
2.208287895571 
9.550152592Е7% 
9.874993849Е71 
6.182356063Е72 
2.236448764E 1 
8.995883519E7u 
8.6%6182178Е71 
1.167567568E 1 
2.204539735571 


0.000000000Е0 
0.000000000E0 
2.976772423Е76 
9.999910953E 1 
4.371660519Е71 
5.606919017E 5 
1.858993%25Е73 
9.997177485Е71 
5,58382%209Е71 
3.567258595Е7% 
5.%63844528Е73 
9.045971378E 1 
2.303471286E 1 
1.198397803Е73 
5.378617009Е72 
6.756756757Е71 
2.869550850£ 1 
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7-10. 


7-11. 


7-14. 
7-15. 


7-16. 


of the same shape which had all ones оп and above the main di- 
agonal and all zeros below. This array can be created with an 
outer product operator. Try to do it. 


. When the program plays itself, we are only using the information 


from half of the moves (one player) to update HISTORY. Change 
the program so that it uses all the information to learn. 

Modify the programs so that the number of sticks in the starting 
pile is determined by a global variable HEAP which is requested 
by the program INITIALIZE. 

Modify the programs so that the largest number of sticks which 
can be taken at one time is a global variable requested by the 
program INITIALIZE. 


. Now that we know the strategy, we can write a program which 


plays perfectly. Do so and then use it as the opponent for the 
learning program. Does this speed up or retard learning? 


. Analyze the programs we have written for instances of poor de- 


sign. For example, when MANYANIM prints its little message 
every five games, it could also print the score (say, the number 
of times the first player won versus the number of times the 
second player won). This would be easy to do and would give us 
more information about how fast the program is learning. Cor- 
rect each design problem you find. 

Try to develop some other learning strategies for this game. 
Write a program that plays SUPERNIM: there are A piles, each 
with B sticks. On a move a player cannot take more than D from 
any one pile. Write a program for SUPERNIM and have it learn 
to play for some interesting settings of the values. 

If Exercise 7-15 was too easy, try generalizing SUPERNIM even 
further. Alternately, try to write learning programs for other 
games. 


| 8 


Formatting Output 
Ап Example о? Program Design 


The Beaver brought paper, portfolio, pens, 
And ink in unfailing supplies: 

While strange creepy creatures came out of their dens, 
And watched them with wondering eyes. 
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It is not always sufficient to get the right answers. Often, the way the 
solution is presented can be as important as the solution itself. This can 
be especially true when the solution is in the form of a report of some 
kind, such as a financial report, a bill, or a summary of scientific data. 
Sometimes for necessary reasons of format or style, and sometimes 
only for convenience, we expect even numeric data to be presented in а 
uniform style. Unfortunately, APL does not always provide the kind of 
output we would like, as Figure 8.1 illustrates. 

The first array shows the results of some calculations as printed by 
APL. This could be unsatisfactory for a variety of reasons. If the calcu- 
lations were dollars and cents figures, we might want only two digits 
after the decimal point, and, perhaps, less space between the columns, 
as in part B. On the other hand, these might be results of a calculation 
which are known to be accurate to five decimal places; then output as 
in the third part of the figure would be desired. APL does not provide 
any ready facility for such formatting of output.' 


SYSTEM DESIGN 


One of the difficulties in trying to format numeric output is in the need 
for filling out the right side of the number with zeros (and sometimes 
adding a decimal point) and for providing the desired number of spaces 
between columns; APL gives us very little control of how numbers will 
be printed, while we have a great deal of control over the way that char- 
acters are printed. This suggests that we could deal with the formatting 
problem much more easily if we could translate numeric data to charac- 
ter data. 

In designing a program package to do such formatting, we should 
first decide on the design criteria: 


What sort of data do we want the programs to process? 
What sort of instructions do we want to be able to give? 


What pathological cases may develop and how do we want to deal 
with them? 


For the first criterion, it seems not unreasonable to ask that any nu- 
meric data structure be acceptable to the system, whether it be a scalar, 
a vector or an array. As for the sort of instructions we might want to 
give, we should first ask the related question, What should the final out- 
put look like? Clearly it should look as much like the numeric data as 


‘It is true, however, that programs similar to the ones to be developed here are 
supplied with many APL systems. Also, because of the importance of this type of 
formatting, the facility we will design here is beginning to appear as a primitive 
operator in some systems. 


4) 
0.1 
0.6 
13.9 
9.7 
2.% 
57.2 


B) 
9.19 
0.60 

13.96 
0.77 
2.46 

57.23 


с) 
9. 
0. 
13. 
0. 
2. 
Lr 


9 


601 
79 

5 
3641 


3.12 
70.20 
1.37 
12.79 
70.82 
5.61 


19000 
60000 
96010 
77900 
46000 
23641 


1.73 
2.01 
2.01 
7.09 
8.2% 
8.2% 


3. 


[M 
1. 
12. 
"o. 
5. 


3.12 
70.2 

1.37 
12.792 
70.82 

5.617 


2.07 
2.76 
3.47 
8.58 
11.31 
14.22 


12000 
20000 
37000 
79200 
82000 
61700 


1.73000 
2.01100 
2.01000 
7.09300 
8.24510 
8, 24100 


FIGURE 8.1. Different formats for printing. 


1.73 
2.011 
2.01 
7.093 
8.2451 
8.241 


2.07000 
2.76000 
3.47000 
8.48700 
11.31600 
1%.22700 


2.07 
2.76 
3.47 
8.487 
11.316 
14.227 
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possible—if the input is an array with 3 planes, 5 rows and 6 columns, 
the output should look the same. This leaves us with only a few possible 
decisions about the output: the amount of space to be devoted to any 
single number, the amount of space between columns, the number of 
digits after the decimal point and the actual position of the decimal 
point. In fact, however, these four decisions reduce to two. 

Suppose that we fix the total number of spaces allotted to a num- 
ber and that we also fix the position of the decimal point. Consider the 
example of printing the vector 


(25.0245, 321.23) 


where each number is to be allotted 10 spaces and the decimal point 
comes in the seventh place. The output would be as shown in Figure 
8.2; the second line of the figure, and the arrows, are there only to 
show how the numbers line up according to the specifications. Spacing 
is forced between elements by allotting sufficient space to each num- 
ber. Likewise, the position of the decimal point exactly defines the 
number of digits after it, since only so much room is allotted for the 
entire number. 

Before we fix upon these two quantities as the ones to specify, we 
should note one inconvenience. If we wished to print only integers 
and hence not show the decimal point, we might have to specify, for 
example, 10 spaces for each number with the decima! point being the 
eleventh. While we could surely write a program which functioned with 
these data, there is something illogical about such a specification and, 
very probably, confusing to a potential user. Instead, therefore, we will 
specify the amount of space allotted for a number, and the number of 
spaces before the decimal point. 

The one remaining design decision is the problem of pathological 
cases. Suppose that one of the numbers we want to print will not fit 
within the desired space; clearly, this would occur only because the in- 
teger part before the decimal point (including the minus sign if there is 
one) will not fit in its assigned space. We have two choices: either we 
could decide to preserve the alignment of decimal points and chop off 
the beginning of the number or we could move the decimal point over 
as much as possible to accommodate the entire number. While the first 
approach might be reasonable in certain applications, the second seems 
preferable as a universal rule. 

To carry the problem a bit further, however, suppose that the inte- 
ger part of the number is too large to fit even in the space provided for 
the entire number. This is a bit more difficult to resolve, as printing 
even the integer part of the number would involve invading the space 
reserved for other numbers. Whether or not this is even practical, let 
alone desirable, will depend on the way that the output data is handled 
by the program. So, while we will have to flag this problem for later 


25.024 321.230 
12345678901234567890 
+ Ж 


FIGURE 8.2. Lining numbers up for printing. 
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consideration, we can at least decide that whatever its resolution as 
much information as possible should be presented to the user. 


EXERCISES 


8-1. If your system has a function or operator for formatting as de- 
scribed above, find out how it works. Does it meet all the criteria 
we have described above? If not, does it have other properties 
which we have not mentioned? How does it handle pathological 
cases? 

8-2. If your system has a function for formatting, read it to find out 
how it works. 

8-3. Find other sets of two parameters which completely determine 
the output form; are there any pairs of parameters which are not 
complete in this sense? 


PROGRAM DESIGN 


The decisions we have made so far imply that the program which the 
user will see, which we may as well call FORMAT, will have two argu- 
ments. One will of course be the data to be formatted, while the other 
will be a vector of size 2 called PLAN, giving the amount of space al- 
lotted to each number and the amount allotted to the integer part of 
the number. However, a user who is formatting integer data will then 
have to enter a vector in which both elements are the same. This is 
hardly a major problem, but nevertheless is an inconvenience which we 
can remove within the program. We could permit a single number to be 
entered as the format specification, with the understanding that this 
would imply that only integers, or integer parts, were to be printed. 

Figure 8.3 shows a reasonable first approximation to the structure 
chart for FORMAT. The arguments are the specification vector PLAN 
and the numeric DATA, and the result is the character-valued variable 
OUTPUT. The approach taken in this structure chart is quite straight- 
forward. The size of OUTPUT will be the same as that of DATA, except 
in the last dimension, where a column of DATA will be expanded to be 
a vector of length PLAN[1]; thus, if DATA has n columns, OUTPUT 
will have nPLAN[1] columns, and if DATA is a scalar, OUTPUT will 
be a vector of length PLAN[1]. Ignoring for this “first draft" the me- 
chanies of shaping OUTPUT, we begin by raveling DATA, so that it 
becomes a vector. Then, one at a time, we translate the elements of 
DATA into character strings and concatenate them onto OUTPUT, 
which was initialized as the empty vector. When this is done, we simply 
shape OUTPUT with the variable OUTPUTASIZE. 


PLAN is the vector of specifications 
(0) DATA is the numeric input 
OUTPUT will be the resulting character output 


Set up OUTPUTASIZE as the eventual size of the output 


OUTPUT < 10 


(©) Now loop through the elements of DATA 


DATA < 0,DATA 


DO until 0 = pDATA+ 11DATA 


Concatenate character version of 
DATA[1] onto OUTPUT 


OUTPUT + OUTPUTASIZE p OUTPUT 


FIGURE 8.3. A design for a program. 


215 


216 


Formatting Output 


Of course, Figure 8.3 is not nearly complete enough to program, 
although it does convey the general approach. In fact, before proceed- 
ing we can settle our last design decision. This approach makes it defi- 
nitely impractical to let a number which is too large run on into the 
space allotted the next number, for that would then be forced to run 
into the next and so on. Neither, however, would we want to print a 
portion of the integer part, for that would be very misleading. A more 
reasonable approach is not to include a number which is too large in the 
output at all. Instead, we could replace it by a string of asterisks, to in- 
dicate that the number which was supposed to go in that location did 
not fit. In order not to completely lose the number, though, we could 
print it out, as a number, some place during the program's execution, 
so that the user would not lose any information. 

As usual, we must make some assumptions about the program’s 
arguments, although they may not be explicit yet in the structure chart. 
We will be assuming, for example, that PLAN is either a vector of size 2 
or a scalar, that its first element is a positive integer and that the second 
element, if there is one, is a nonnegative integer. If there is a second ele- 
ment, it should not be larger than the first. Rather than constantly re- 
quiring two cases, depending on whether PLAN is a vector or a scalar, 
we could, early in the program, expand a scalar PLAN to be a vector 
with two equal elements. 

Another point worth checking, for the convenience of the user, is 
whether or not the eventual output will be too wide for the terminal. 
Recall that one of the 6 I-beam system operators enables us to find the 
number of characters which APL will print on one line, while the width 
of the output will be easily calculable from OUTPUTASIZE. 

Finally, we need some way to translate a single numeric scalar into 
a character string of the proper format. We may assume that it is to be 
done by a program called REWRITE, which will have as its arguments 
the scalar and PLAN. 

A second, slightly more detailed structure chart appears in Figure 
8.4. One process box, which indicates four conditions to be checked, 
clearly represents many APL statements, while two others, the one re- 
shaping PLAN and the one defining OUTPUTASIZE, may or may not 
require more than one statement; other than that, this is a fairly accu- 
rate representation of our plan for the program FORMAT. Since the 
program cannot be tested until we have written REWRITE, we will 
postpone coding of FORMAT until REWRITE has been considered. 


EXERCISES 


8-4. Write and test code which will expand a scalar PLAN to a vector 
of size 2. 


PLAN is the vector of specifications 
(v) DATA is the numeric input 
OUTPUT will be the resulting character output 


Check that PLAN is a scalar or a vector of size 2 


If PLAN is scalar, expand to a vector 


Check: PLAN is all integers 
PLAN[1] > 0 
PLAN[2] > 0 
PLAN[1] > PLAN[2] 


Set up OUTPUTASIZE as the eventual size of the output 


OUTPUT < 10 


(оу Now loop through the elements of DATA 


DATA = 0,DATA 


DO until 0 = oDATA + 14DATA 


OUTPUT = OUTPUTASIZE p OUTPUT 


FIGURE 8.4. Filling in some details. 


OUTPUT < OUTPUT, PLAN REWRITE DATA[1] 
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8-5. Write and test the code to find the value for OUTPUTASIZE. 

8-6. Another approach to the problem of numbers which are too large 
is to print them, where they are supposed to go, in exponential 
notation. Ав you read the chapter, consider how this could be 
done (and in which cases it would not help); at what points in the 
development of the program would this scheme have an effect? 


NUMBERS TO CHARACTERS 


Іп designing REWRITE we should note that the essential problem is in 
translating an integer to a character string; the problems of taking care 
of decimal points, minus signs, leading blanks and trailing zeros are rela- 
tively minor, as the structure chart in Figure 8.5 shows. However, even 
these latter problems, and the matter of deciding if the eventual charac- 
ter string fits in the allotted space, are not trivial. In this planning stage, 
it is easiest to again separate the problem of translating a number to a 
character string from the other incidentals. 

How would we go about doing this translation? Consider a number 
such as 15. How can we produce the character string *15' from it? If 
we could separate its digits, producing the vector 1 5, we could then use 
the vector to subscript ‘123456789’ and the result would be the charac- 
ter string we seek. In fact, we can do exactly that separation using the 
operator encode. The expression in Figure 8.6A will produce the vector 
1 5. Figure 8.6B shows some other examples of encoding. 

To use encode in this manner we need to put exactly as many tens 
in front of the operator as the number has digits. We can find the num- 
ber of digits in 15, for example, by taking its base 10 logarithm, which 
is 1.17609, and then using the ceiling operator to get 2. This will not 
work, of course, for zero or negative numbers, where there is no loga- 
rithm defined, or even for numbers which are not integers-how many 
digits there are in 3.14159 cannot be determined in just this way. This 
reinforces our decision to first concentrate on positive integers: trans- 
lating 0 can be handled as a special case, while negative numbers and 
fractions will first have to be processed by REWRITE, as is suggested 
by Figure 8.5. 

The logarithm will not, however, work exactly even for ай positive 
integers. The logarithm of 1 is 0, although 1 has опе digit; for 10 it is 
1, for 100 it is 2 and so on. Of a number of ways to correct for this, 
one of the simplest takes advantage of the fact that we are only dealing 
with integers; if we take the logarithm of the number plus .1, the ceil- 
ing will be increased by 1 only for powers of 10. 


PLAN is the specification vector 
(e) NUMBER is a scalar number 
CHARACTERS is the result—the character version of NUMBERS 


4 
Let INTEGER be the character version of the integer part of 
(NUMBER) 

Let FRACTION be the character version of the fractional part 
of (NUMBER) 
CHARACTERS < INTEGER,'.', FRACTION 


Prefix CHARACTERS with ! `' if NUMBER < 0. 


Add leading blanks and trailing zeros to CHARACTER 


Does CHARACTER fit in allotted space 
? 


Print NUMBER and a message 


CHARACTER < PLAN[1]o'*' 


FIGURE 8.5. A first design for REWRITE. 


A) 
10 10 т 15 

B) 

10 10 T 3 
0 3 

10 10 10 T 863 
8 6 3 

222 T4 
1.1 1 

22276 
11 0 


FIGURE 8.6. Examples of encode. 
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Тһе program TRANSLATE is shown in Figure 8.7: this transforms 
a positive integer to characters. The reason we assume that the argu- 
ment is scalar will be clear from the exercises. Rather than check this 
оп each entry to the program, we will make sure that only arguments 
of the proper form are passed to TRANSLATE by REWRITE. Notice 
that, since the output of TRANSLATE is sometimes a vector, we en- 
sure that it will always be a vector, avoiding corresponding checks in 
the calling program. 


EXERCISES 


8-7. What are the dangers inherent in permitting WHOLE to be a vec- 
tor, even of size 1? (Hint: examine the size of the result of the 
encode function when its right-hand argument is a vector of size 
1, as opposed to the case when it is a scalar.) 

8-8. What advantages do we gain by not checking the input to TRANS- 
LATE? 

8-9. What dangers are there in not checking the arguments to any 
function? Does the answer to Exercise 8-8 outweigh these disad- 
vantages? Can you formulate a rule of thumb for when it is per- 
missible not to check the arguments to a program? 


TRANSLATING FRACTIONS 


Having written the program TRANSLATE leads us to reevaluate the 
structure chart in Figure 8.5. For example, we cannot simply find the 
translation of the fractional part of NUMBER, since TRANSLATE will 
only work for integers. We can get an integer from the fractional part 
if we multiply it by an appropriate power of 10 and then use the floor 
operator. Which power of 10 should we use? Clearly, the proper power 
of 10 is the one which will produce exactly enough digits to fit in the 
space after the decimal point—if the fractional part terminates in fewer 
places than this, the remaining space will be filled out with low order 
zeros. The proper power of 10 is therefore PLAN[1] — (PLAN[2] +1). 
This quantity, which we might сай DECIMAL, gives us other informa- 
tion as well. If DECIMAL - 71, then PLAN[1]-PLAN[2] and neither 
the fractional part nor a decimal place is to be printed. If ПЕСІМАІ,-0, 
there is to be a decimal point after each number but no digits following 
the decimal point. 


[1] 
[2] 
[3] 
[u] 
[51 


V CHARACTERS+TRANSLATE WHOLE 
в--=-> WHOLE IS A NONNEGATIVE SCALAR INTEGER 
-ZEROACASE IF WHOLE=0 
CHARACTERS«,'0123456789' [1+ (([10 0 FW HOLE* 0.1)p10) TWHOLE ] 
+0 

ZEROACASE:CHARACTERS«,'O* 

v 


FIGURE 8.7. Formatting an integer. 
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The structure chart in Figure 8.8 expresses the logic of the program. 
First, DECIMAL is defined, and then INTEGER is the character string 
version of the integer part of NUMBER, prefixed by a minus sign if nec- 
essary. Then, if DECIMAL is nonnegative, FRACTION is initialized to 
be ‘.’, since if DECIMAL is not 1 there will at least be a decimal point 
in the character string version of NUMBER; if DECIMAL is negative, 
then FRACTION is the empty vector. 

Now, if DECIMAL is not positive, that is all we need to do with 
FRACTION. Otherwise, we first scale the fractional part, multiplying 
it by 10*DECIMAL, and then translate it to a character string. While 
the result should have size DECIMAL, it may not. If the fractional part 
was 0, for example, the character string will only have size 1, Also, if 
the fractional part itself has any leading zeros, they will be lost in the 
scaling process, as can be easily verified at the terminal. Thus, we need 
to insert zeros between the decimal point and the character string. No- 
tice how our original problem of having to add trailing zeros has been 
replaced by one in which we add leading zeros! 


PLAN[1] is the total amount of space available 

PLAN[2] is the number of positions before the decimal 
NUMBER is a scalar number 

CHARACTERS is the result—the character version of NUMBER 


DECIMAL — PLAN[1] — (PLAN[2]*1) 


INTEGER < TRANSLATE INUMBER 


INTEGER < ((NUMBER«0)e! '), INTEGER 


FRACTION + (DECIMAL70)o'-" 


DECIMAL < 0 
? 


FRAGMENT + TRANSLATE 
L(10*DECIMAL) X (INUMBER)— 
LINUMBER 


FRACTION < FRACTION, 
((DECIMAL—oFRAGMENT)p'0!), 
FRAGMENT 


PLAN|2] < eINTEGER 
ац А 


уеѕ по 


FRACTION + (РІ.АМ|2)- INTEGER + ((PLAN[2]— 
pINTEGER)s FRACTION pINTEGER)p! '), INTEGER 


CHARACTER = INTEGER,FRACTION 


PLAN[i] = pCHARACTER 


2 


yes no 
E CHARACTER < PLAN[1]g'*' 
Print NUMBER and message. 


FIGURE 8.8. REWRITE redesigned. 
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We now have to consider whether or not INTEGER is too large to 
fit into the allotted space. 1f it is, we truncate the appropriate number 
of character spaces from the end of FRACTION (note that in this case 
PLAN|2] is less than the size of INTEGER). Otherwise, we precede it 
by the appropriate number of leading blanks. The resulting concatena- 
tion of INTEGER and FRACTION is the result, unless it is still too 
large to fit in the allowed space. If so, we print the numeric value of 
NUMBER and return a string of asterisks. The program for REWRITE 
is shown in Figure 8.9. 


EXERCISES 


8-10. if a number must be replaced by asterisks and printed separately, 
it would be more useful to the user to know exactly which ele- 
ment is being printed (if the input to FORMAT is a vector or 
array) in case more than one needs to be replaced. Since the vari- 
ables of FORMAT are available to this program, use them to 
determine the exact location of NUMBER (second plane, third 
row, fourth column, etc.) when it is being printed. 

8-11. Use the structure chart of Figure 8.8 to design a comprehensive 
set of tests for the program in Figure 8.9. 

8-12. Prove that in line 10 of Figure 8.9 DECIMAL is never less than 
the size of FRAGMENT. 


COMBINING THE PIECES 


We now have all the pieces we need to complete the program FORMAT, 
which is shown in Figure 8.10. Line 2 expands PLAN, if necessary, to 
have size 2. Line 7 calculates DATAASIZE, which is the size of DATA, 
or 1 if DATA was a scalar. Then, OUTPUTASIZE is the size of the 
eventual output. On lines 9 and 10 we check to see if the width of the 
output will be too large for the line; each time we reference the 6 1- 
beam, once to discover its value and once to reset, we must ensure that 
its value is not printed. The remainder of the program is just as we had 
planned. 


Y CHARACTER+PLAN REWRITE NUMBER ; INTEGER ; FRACTION DECIMAL; PRAGMENT 


[11 PLAN IS А VECTOR OF SIZE 2 GIVING 
[231 -(TOTAL LENGTH, POSITIONS BEFORE DECIMAL) 
їз] NUMBER MUST BE А SCALAR 


[4]  DECIMAL-PLABL1]-(PLANU2]*1) 
[5] | INTEGER-TRANSLATEL | NUMBER 
[6] — INTEGER-((NUMBER«O)p' ') INTEGER 
[7] — PRACTION-(DECIMALz0)p!.' 
[8]  +ADDABLANKS IF DECIMALSO 
[9]  PRAGMENT+TRANSLATE| (10«DECIMAL)x (NUMBER) -L | FUMBER 
(101 PRACTION*FRACTION , ((DECIMAL-p FRAGMENT )p' 0! ) , FRAGMENT 
[11] ADDABLANKS:*TRUNCATE ІР PLAN[2]«pINTEGER 
[12] INTECER-((PLANÜ2]-opINTEGER)p! '),INTEGER 
[13] -+РИТЬТОСЕТНЕЕ 
[14] TRUNCATE:FRACTION-(PLANL2)-p INTEGER ) FRACTION 
(15] PUTATOGETHER:CHARACTER-INTEGER , FRACTION 
[16] +0 IF PLAN[1]-oCHARACTER 
(171 а----ОТНЕВЫТ5Е, EVEN (LNUMBER) CANNOT FIT IN 
[18] a PLAN[1] SPACES. INSERT STARS AND PRINT 
[19] -VALUE OF NUMBER HERE 
(202 CEARACTER« PLARL1 рты" 
[21] '----» ',NUMBER,' DID NOT FIT 
Y 


FIGURE 8.9. Formatting a scalar. 


7 OUTPUT+PLAN FORMAT DATA;DATAASIZE;OUTPUTASIZE;LINE 
1 ‘FORMAT: IMPROPER SPECIFICATION! ERROR(1<ppPLAN)V2<p PLAN 
4 PLAN+PLAN, (070p PLAN)pPLAN 
1 'PORMAT:SPECIFICATION NOT INTEGER' ERRORYV/PLAN*LPLAW 
1 'FORMAT:WIDTH NOT POSITIVE' ERROR PLAN[1]sO 
[51 'FORMAT:INTEGER PART NEGATIVE' ERROR PLAN[2]«0 
(61 'FORMAT:INTEGER PART TOO LARGE' ERROR PLANL1]«PLANU2] 
{71 DATASSIZE+(pDATA ) ,(0=ppDATA)p1 
[8] OUTPUTASIZE*( 1«DATAASIZE),PLAN[i]x 1tDATAASIZE 
(91 LIWE+6xr 3 120 
[10] LINE*«LINE,(0p613,LINE) 
[11] a----- TO DISCOVER AND THEN RESTORE LINE WIDTH 
[12] 'FORMAT:OUTPUT DOES NOT FIT ACROSS LIWE' ERROR LINE« 71%00Т7РИТ4512. 
[13] 00ТРИТ%10 
[14] 0474<0,,0АТА 
[15] ADATA:+ENDADATA WHEN О=ррАТА+1+рАТА 
(161 OUTPUT-OUTPUT,PLAN REWRITE DATA[1] 
1171 +АРАТА 
[18] ENDADATA :OUTPUT-OUTPUTASIZEQOUTPUT 

Y 


FIGURE 8.10. Formatting any numeric data. 
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Figure 8.11 shows some calls to FORMAT. It seems to be behav- 
ing properly in the first four cases. However the last case, which asked 
for the printing of some base 2 logarithms, caused a DOMAIN ERROR 
in TRANSLATE. We found out the value of WHOLE and it was 71. 
TRANSLATE never changes the value of WHOLE so it must have 
gotten the '1 from REWRITE, even though we wrote REWRITE to 
only pass nonnegative numbers to TRANSLATE! We ask for the state 
indicator to find out that TRANSLATE was called from line 9 of RE- 
WRITE (which was called from line 16 of FORMAT). 


4) 
10 3 FORMAT (%,5)р120 
1.000000 2.000000 3.000000 5.000000 5.000000 
6.000000 7.000000 8.000000 9.000000 10.000000 
11.000000 12.000000 13.000000 1%,000000 15.000000 
16.000000 17.000000 18.000000 19.000000 20.000000 


B) 
6 6 FORMAT 100 10 1 0 .1 .01 
100 10 1 9 9 9 


с) 
7 4 FORMAT .0001 .001 .01 .1 0 10 100 
0.00 0.00 9.91 0.10 0.00 10.00 100.00 


D) 
12 0 FORMAT +3 
0.3333333333 


E) 
10 3 FORMAT 20110 
DOMAIN ERROR 
TRANSLATEL3) CHARACTERS«,'0123456789'(1*(([10eWEOLE*0.1)p10) ТИНОГЕ] 
^ 


WHOLE 
71 

SI 
TRANSLATE(3] * 
REVRITEL9] 
FORMATLA6] 


FIGURE 8.11. Using the format package. 
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Figure 8.12 shows a run with a stop command placed on line 9 of 
REWRITE. Each time, we look at NUMBER and at the quantity which 
is supposed to be its nonnegative fractional part; the latter is to be mul- 
tiplied by an appropriate power of 10, rounded down and passed to 
TRANSLATE. 

The fourth time through, the value of NUMBER is (apparently) 2 
and yet the quantity indicated by arrows, supposedly its fractional 
part, has a very small negative value. This is due to the fuzz—the fact 
that numbers are not always represented exactly. In this case, the value 
2 is the result of a call (invisible to us) to the routines which APL uses 
to find logarithms. The value produced was slightly less than 2, but was 
so close that it is printed as 2 by APL; and this is correct—the logarithm 
of 4 should be 2. What is strange is that while NUMBER is equal to its 
floor and ceiling, and the absolute value of NUMBER is equal to the 
absolute value of the floor of NUMBER, the difference between these 
last two values is considered to be less than 0; the two numbers are 
equal but their difference is not 0! 

When problems like this arise there is not always an easy way to 
get around them, and there certainly are no general rules: the action 
taken must depend on an analysis of the particular case. Certainly, 
this problem will only arise if the fractional part of NUMBER is sup- 
posed to be 0, In any other case, even if the numbers which APL pro- 
duces are slightly off from their true values, at least it will be true that 
a nonnegative number is passed to TRANSLATE. 


БАВЕНВТТЕ+9 
10 3 РОВМАТ 26110 


REWRITE(9) 

NUMBER 
0 

(1NUMBER) -L | NUMBER 
9 

-9 


REWRITE[9] 

NUMBER 
1 

( | NUMBER )-L | NUMBER 
9 

-9 


REWRITE[S] 

NUMBER 
1.584962501 

(I NUMBER) -L | NUMBER 
0.584956525007 

+9 


REWRITE[91 
NUMBER 
2 
CINUMBER) -L|NUMBER 
72.220%460498716 
NUMBER=2 
1 
NUMBER=| NUMBER 
1 
NUMBER=[ NUMBER 


CINUMBER)-L | NUMBER 
O0-C[NUMBER) -LI NUMBER) 


о> (INUMBER) -L | NUMBER) 


FIGURE 8.12. Locating the cause of the error. 
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Here, the problem is not too difficult to resolve. If the number we 
are about to pass to TRANSLATE is ever less than 0, we pass 0 instead. 
Тһе version of REWRITE in Figure 8.13 (see line 10) implements this 
and the output in Figure 8.14 shows that the program does work now. 


EXERCISES 


8-13. Verify that the revised REWRITE takes care of the problem. 

8-14. Why are there two commas on line 14 of FORMAT? 

8-15. On line 16 of FORMAT, we could get the first element of DATA 
with the take operator instead of subscripting. Would that have 
worked? 

8-16. Rewrite FORMAT so that the line width is first set to its maxi- 
mum value before checking if there is room for the output on a 
line, and then is reset to its original value after program execu- 
tion. 

8-17. И your system has a library function similar to FORMAT, com- 
pare the running times of the two. Then, in each program, make 
a change so that the number 0 is represented as a string of zeros 
of length PLAN[1]. 

8-18. Write a program called EFORMAT which produces all its output 
in scientific notation. All nonzero numbers printed should be 
fractions with a nonzero digit immediately following the decimal 
place. The first element of PLAN could be the total amount of 
space allocated for a number and the second could be the num- 
ber of digits printed after the decimal point. Remember to leave 
a space before the number for a sign, and three spaces after the 
E for a sign and two digits. 

8-19. Design and write a version of FORMAT which allows the user to 
specify that different columns of the data will be printed accord- 
ing to different formatting schemes. In the output from the NIM 
program of the last chapter we might have wanted the first col- 
umn (the row numbers) of Figures 8.16-8.18 printed in (2,2) 
format while the other columns would have been in, say, (8,1) 
format. 

8-20. The method of building our program which we used here is 
called bottom-up because we first wrote the program at the very 
bottom, TRANSLATEd and then worked our way up. A differ- 
ent scheme is top-down. И we were doing this project top-down, 
we would first design and write FORMAT and test it out, before 
writing the lower level routines. How can we test FORMAT if 
the routines it calls have not yet been written? We write very 
small programs called stubs. For example, a stub for REWRITE 
would have the same name, REWRITE, and the same arguments, 
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{31 
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V CHARACTER«PLAN REWRITE NUMBER INTEGER ; PRACTION ;DECIMAL ;PRAGMENT 
-PLAN 15 A VECTOR OF SIZE 2 GIVING 
-(TOTAL LENGTH, POSITIONS BEFORE DECIMAL) 
-NUMBER MUST ВЕ 4 SCALAR 
DECIMAL*PLAN[1]-(PLAN[2]41) 
INTEGER«-TRANSLATEL | NUMBER 
INTEGER*((NUMBER«O) o! ') INTEGER 
FRACTION*(DECIMALz0)p'.' 
+ADDABLANKS IF DECIMALSO 
FRAGMENT (|NUMBER)-L | NUMBER 
FRAGMENT+TRANSLATEL (10«DECIMAL)xPRAGMENTx (РЕАСМЕНТ20) 
FRACTION*PRACTION , ( (DECIMAL -p FRAGMENT )p ' 0 ) ,PRAGNENT 
ADDABLANKS:*TRUNCATE IF PLAN[2]«pINTEGER 
INTEGER-((PLAN[2)-oINTEGER)p' '),INTEGER 
+PUTATOGETHER 
TRUNCATE : PRACTION*( PLAN(2)-p INTEGER) FRACTION 
PUTATOGETHER : CHARACTER*INTEGER , FRACTION 
+0 ІР PLAN(1J=pCHARACTER 
a-~--OTHERWISE, EVEN (LNUMBER) CANNOT FIT IN 
a- -PLAN(1] SPACES, INSERT STARS AND PRINT 
a- -VALUE OF NUMBER HERE 
CHARACTER«PLAR(11o '«' 
t----> CGAUMBER;' DID NOT FIT ' 


y 


FIGURE 8.13. REWRITE revisited. 


1. 
2. 
3. 
н. 
5. 
6. 
7. 
8. 
9, 
10. 
11. 
12. 


10 3 FORMAT 8(5,12)0(112),(20112) , (6112) , (1009112) 
000000 0.000000 0.000000 20.000000 
000000 1.000000 0.693147 0.301029 
000000 1.584962 1.098612 0.477121 
000000 2.000000 1.386294 0.602059 
000000 2.321928 1.609437 0.698970 
000000 2.584962 1.791759 0.778151 
000000 2.807355 1.945910 0.845098 
000000 3.000000 2.079541 0.903089 
000000 3.169925 2.197224 0.954242 
000000 3.321928 2.302585 1.000000 
000000 3.459431 2.397895 1.041392 
000000 3.584962 2,884906 1.079181 


FIGURE 8.14. A table of logarithms. 
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but would do very little, if anything. The point is to have some 
little *do-nothing" program so that we can test the logic of 
FORMAT without worrying about the details of TRANSLATE 
or REWRITE. This sounds complicated, and it is for the small 
programs in this book. For larger programs, it can work very 
well—if your design for FORMAT, say, is incorrect, would you 
rather find out before or after you put in all the work of writ- 
ing all the lower level routines? For practice, write a stub for 
TRANSLATE which will allow you to check out the logic of 
FORMAT and of REWRITE without worrying about the details 
of TRANSLATE. 


Interlude Five 


Documenting a Workspace 
for Other People 


Adapted from “How to document ап APL workspace” 
by Dennis P. Geller APL Quote Quad, vol. 5, issue 4. 
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Most programs are written by programmers for other people to use. It is 
important that the programs be accompanied by good documentation 
which will enable the intended audience to make maximum and effec- 
tive use of the programs. Careful documentation should be a part of the 
entire programming process; unfortunately this is not always the way 
that things are done. 

А very revealing experiment has been conducted a number of times 
in introductory programming classes, with consistent results. The stu- 
dents were told to pick a program from a public library workspace, one 
which seemed interesting, and to use it. Invariably the workspace that 
the student picked was faulty: either the documentation was nonexis- 
tent, or it was there but incomplete or wrong, or, after struggling 
through all this, the programs simply did not work. 

lt may seem strange, and rather difficult to believe, but there are 
countless examples of programs which are in the public libraries which 
could not possibly have been run by their authors. (Perhaps they were 
run, and then modified and not run again before being saved into the 
library—no other conclusion is possible in the case of programs which, 
for example, cannot list their own instructions without errors.) Ideally, 
a program should never fail through an APL error, no matter what the 
user does, but certainly it should never fail if the user follows instruc- 
tions exactly. (Obviously, there should be no programs in the public 
libraries which fail ail the time, but there are.) 

This is not the place to discuss the ways to make a program fail- 
proof—the point is that if you write documentation with the aim of 
being perfectly accurate, it will force you to test out what you say, and 
will probably improve the quality of your programming. The first and 
most important principle is, therefore: be accurate. 

Now that we know how to do it (accurately), we can begin to ex- 
plore what it is we need to do. The guidelines we will look at should be 
satisfactory, but it is not so much the forms that you use that are im- 
portant as the principles behind them: clear communication, accuracy, 
and convenience. 


DONT'S 


First, let's look at two common mistakes that should not be repeated. 

1. Do not use variables for descriptions. A number of workspaces 
have a variable named DESCRIBE. This is invariably an extremely long 
character string with imbedded carriage returns: the author types a 
quote mark, all of the desired text (often pages of it) and then a second 
quote mark to close the character string. This is probably the easier way 
to set up descriptive text, but there really are things wrong with it. For 
example, now that you have it, how do you modify it? Such long strings 
are almost impossible to change once set up, due to the difficulty of 
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locating specific positions within them: once set up such descriptions 
are never changed, despite the modifications that may go on in the pro- 
gram. 

2. Do not make descriptions part of the working program. Do not 
make the descriptive material an actual part of the program. Rather, 
Write a function that gives the necessary instructions and let it be called 
from the working program if the user so requires: the working program 
can ask “Do you want to see the instructions?" and then print them 
out only if the answer is yes. There is nothing more frustrating than 
waiting for a program to stop printing the same 30 lines of instructions 
that you have seen ten times before. Doing it this way also lets the user 
erase the descriptive information in case space is limited. 


DESCRIBE AND INFO 


Now that we have looked at two important don'ts, we can begin to 
examine some of the things that we should do. Most people expect to 
find instructions in a function (or variable) named DESCRIBE. There 
should therefore be such a function (not a variable), but it shouldn't 
do very much. Use the DESCRIBE program to give a brief abstract of 
the workings of the programs. This should be followed by a table list- 
ing the other documentation functions (which we will discuss below) 
and what they tell. A user now has enough information to get into the 
workspace and use it, or to decide it is uninteresting and do something 
else. A sample DESCRIBE is shown in Figure I5.1. 

Before we go on to create more documentation functions, a general 
comment is in order. As the programmer, you know all about this par- 
ticular workspace. You probably don't even need to look at the docu- 
mentation—but other users do. You are not going to sit around cutting 
up the descriptions and pasting them in a notebook, but other people 
are. Since you are trying to make this workspace available to others 
who may have a serious need for it, it is an extra kindness to write 
your functions so that they will fit on normal size pieces of paper. 

Document each program or similar group of programs. We will use 
as an example a hypothetical program for preparing and updating bibli- 
ographies; we already saw the DESCRIBE for this in Figure 15.1. There 
will be one or more functions for entering items into the bibliography, 
one or more for modifying already entered items, and one or more for 
printing. Each of these types of activity should have a separate docu- 
mentation function. A good choice is to use names that end in INFO, 
such as PRINTINFO, ENTERINFO, CHANGEINFO. 

What should one of these INFO programs contain? First of all, a 
general introduction to the type of programs it documents: “the func- 
tions described here are used in adding new items to your bibliography." 


DESCRIBE 
THIS IS А COLLECTION OF PROGRAMS WHICH PERMITS YOU TO CREATE А BIBLIOGRAPHY 
AND ASSOCIATE WITH EACH ITEM IN THE BIBLIOGRAPHY ZERO OR MORE KEYWORDS. WHEW 
YOU WISH TO PRINT THE SIBLIOGRAPHY YOU CAN EITHER PRINT THE WHOLE THING OR 
GIVE 4 LIST OF KEYWORDS, ARD ONLY THE ITEMS WEICH HAVE AT LEAST ONE OF THOSE 
KEYWORDS ASSOCIATED WITH TREM WILL BE PRINTED. 


MORE INFORMATION IS GIVEN IN THE -----ІНҒО PROGRAMS WHICH GIVE MORE 
DETAIL ON HOW TO USE THE PROGRAMS. THESE ARE: 


ENTERINFO HOW TO ENTER ITEMS INTO THE BIBLIOGRAPHY 
PRINTINPO HOW TO PRINT BIBLIOGRAPHIES 
UTILITYINFO А FEW USEFUL FUNCTIONS NOT DISCUSSED ELSEWHERE 


WORKSPACEINFO BOW TO GET STARTED IN A CLEAR WORKSPACE OR CONTINUE 
YOUR BIBLIOGRAPHY OVER MORE THAN ONE WORKSPACE 
GLOBALINFO 4 LIST OF THE GLOBAL VARIABLES WHICH MUST EXIST 
PROGRAMMERINPO SOME HINTS ON THE STRUCTURE OF THE PACKAGE, WHICH MAY 
HELP YOU MODIFY THE PROGRAMS OR GET OUT OF UNPORSEEN JAMS. 


OF COURSE, ALL THESE PROGRAMS SHOULD BE ERASED BEFO"E YOU START TO WORK 
AS THEY TAKE UP SPACE BETTER USED ELSEWBERE(UNLESS YOU HAVE UNLIMITED 
WORKSPACES). 


FIGURE 15.1. A sample DESCRIBE. 
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Then a list of the programs being described, and finally a detailed de- 
scription of each. 

What is a detailed description? 14 covers several things. First, it tells 
what the effect of the program is. Second, it tells how to call it: if only 
the name is needed, say so; if it takes arguments, how many and what 
kind? What are the special cases? If the program requires vector argu- 
ments, will it accept scalars? What can happen if the wrong type of 
argument is given? 

What does the program do if it is working correctly? What sorts of 
questions will it ask? What kinds of answers should be given? (Do not 
ever assume that your program is self-explanatory.) What sort of output 
does the program give? 

Does it do clever things like give the user a chance to put in a new 
sheet of paper by stopping and waiting for a special signal, like a car- 
riage return? Does it require a lot of “think time?" Can it ever run out 
of work space; if so how can that be prevented? How can the user's 
data be recovered in case something like this does happen? 

Figure 15.2 shows a sample INFO from the bibliography package. 


EXERCISES 


15-1. What do you know about the bibliography programs after read- 
ing the two figures? What more should you have been told? 

15-2. Note that Figure 15.2 references the program and INFO for en- 
tering items into the bibliography. This cross-referencing would 
be acceptable if you knew that the user had already looked at 
ENTERINFO. How do you know? 


PROGRAMS THE USER DOESN'T SEE 


So far, we have been describing the documentation for the most impor- 
tant programs, the ones that the user actually has to call directly. There 
are usually other programs as well: these should, in general, be handled 
in less detail, but they should be documented. You might have a func- 
tion called FUNCTIONSINFO, which gives the name of every program 
in the workspace and a very brief description of what it does. Include 
the ones that the user may call directly, but separate them from the 
others. 

Another thing that can be done with programs the user doesn't see 
is indicate in the documentation of the other programs which of these 
get called, but don't do this unless it is likely to provide useful informa- 
tion. If the workspace is best used by erasing some functions when 
others are being called, this kind of documentation is invaluable. If the 
programs are designed so that the user can safely make some small 


PRINTINFO 
INSTRUCTIONS FOR USING PROGRAM 
PRINT 


PROGRAM PRINT IS USED FOR RETRIEVAL OF THE BIBLIOGRAPHY 
IT LETS YOU PRINT ALL THE BIBLIOGRAPHY ENTRIES OR ONLY THOSE 
TO WHICH CERTAIN KEYWORDS HAVE BEEN ADDED. 

THE PROGRAM WILL PRODUCE THE LIST OF ENTRIES THE WAY THAT 
THEY WERE ENTERED. ТНЕ ENTRIES WILL BE SEPARATED BY BLANK LINES. 
EACH PAGE IS NUMBERED. WHEN THE PROGRAM COMES TO THE BOTTOM OF A PAGE 
THE TYPEBALL WIGGLES AND THEN PAUSES. PUT IN А NEW PAGE OR ROLL THE 
PAPER UP А FEW LINES AND THEW HIT CARRIAGE RETURN;THIS PAUSE AND 
WIGGLE ALSO OCCUR BEFORE THE FIRS? PAGE IS PRINTED. 


THE PROGRAM FIRST ASKS FOR THE NUMBER OF LINES ON & PAGE. THIS 
SHOULD BE APPROXIMATE, WITH A PEW LINES LEFT TO SPARE АТ THE BOTTOM. ІТ 
THEN FINDS OUT WHAT KEYWORDS ARE TO BE USED TO RETRIEVE INFORMATION. YOU 
CAN RETRIEVE ОН AS MANY KEYWORDS AS YOU LIKE(THE ENTRY MODE IS MUCH THE 
SAME AS FOR ENTER) OR YOU CAN LIST ALL THE ENTRIES. 


FIGURE 15.2. A sample INFO. 
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changes in them, such documentation is again important. It is less im- 
portant if, say, the programs are going to be used by preschoolers to 
learn arithmetic. However, it will still be likely that someone, probably 
another programmer, will have to occasionally modify the programs, 
and certain documentation is required for that purpose, but of a dif- 
ferent sort from what you would supply to a user. 


OTHER CONSIDERATIONS 


Documenting the functions is most of the battle, but not all of it. While 
you will surely have localized all possible variables, it is sometimes con- 
venient to have a few global variables. If so, then document them. A 
GLOBALINFO function should list each global variable, what its default 
(starting) value is, where it gets values assigned to it, where it is used, 
what other values the user may want to give to it and what the effect 
will be of each. 

Be sure and tell the user how to get started. A function called GET- 
TINGSTARTEDINFO, or something similar but shorter, can collect all 
the facts needed to get the programs rolling. What initializations need 
to be done? What does the user need to do to erase all of this documen- 
tation if that is necessary to provide enough room to run the programs? 

Sometimes you can expect that the user will have to create new 
workspaces with the same programs (as in our bibliography example, 
when the amount of data gets too big to fit all in one workspace). How 
does one carry over the essential programs and variables to a new work- 
space and leave alone things best left alone? The place for such informa- 
tion is a WORKSPACEINFO. 

Of course, all of this is not being done just for the user. If you've 
never carefully documented a workspace before you'll be surprised at 
how much you'll learn about your own programs and how much better 
they will become. Furthermore, if you, or someone else, ever need to 
change the programs, the documentation will be invaluable. Since, now 
that the programs are fresh in your mind, you probably can remember 
a lot of the special features of the way you set things up that the user 
doesn't need, but another programmer might, write a PROGRAMMER- 
INFO to collect the information which a programmer might need. What 
sort of data structures are you using? What unorthodox techniques did 
you use? These things will often be discussed, in comments, in specific 
programs, but it does no harm, and potentially much good, to collect 
them all together. 

Sometimes, too, you write some programs which could be used in 
other contexts (like our IF, ERROR and WHEN). You might want to 
make them available by describing them separately as utility programs— 
in UTILITYINFO. 
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Having written all of this documentation, and more 14 necessary, read 
it. Check it carefully: don't just look for what you said, look for what 
you didn't say. Writing documentation is as important, and difficult, as 
writing the programs—since you are working in a natural language, 
though, it is easier to make mistakes and harder to debug them. 

You may be concerned about the profusion of INFO names. They 
may seem forbidding here, but remember that your DESCRIBE lists each, 
with some information about what it tells (the name is not enough). 
Also, you shouldn't worry about the amount of space taken up by all 
of these functions. After all, the GETTINGSTARTEDINFO explains 
how to erase them before running the programs. And if they take up 
too much room for the other programs to fit you can have separate 
workspaces for your documentation functions and for your actual pro- 
grams (with each one telling the user how to find the other, of course). 
If this seems clumsy, it is much better than what is often available. 

Now, don't save all this in a public library. First, wait a week and 
look at the whole thing carefully. It's easy to make simple mistakes 
which can have major effects on the success of your workspace: some 
workspace have been put into public libraries with stop commands 
activated on their major programs or with large stacks of pending pro- 
grams. Try to make sure that you aren't doing something similar. Then 
give the package to some other people and ask them to try it out. 

Finally, don't save it yourself in a public library, even if your com- 
puter system allows you to do so. Send a copy of the documentation 
to the responsible person at the computer center. Ask for comments 
(there may, for example, be standards that you weren't aware of) and 
ask them to save it: there may be a special public library for programs 
like yours, and you'd probably prefer to have it there. 


EXERCISES 


15-3. Figure 15.3 shows a sample GLOBALINFO. Does it tell every- 
thing you would want to know as a user? Ав a programmer? 

15-4. If all of this hasn't convinced you as to the need for careful docu- 
mentation, try this: pick 10 workspaces at random from your 
public libraries, find out from their documentation what they 
are supposed to do and then try to use them. 

15-5. We could use variables instead of programs for our documenta- 
tion: one advantage is that a user who wishes to interrupt the 
printing can hit the attention key, without ending up with a sus- 
pended function. To meet the objections presented earlier, we 
would need programs for editing character strings. Design a pack- 
age of such editing functions. 


GLOBALINFO 
GLOBAL VARIABLES 


THE FOLLOWING IS A LIST OP SOME VARIABLES WHICH MUST 

BE GLOBAL 70 ALL PROGRAMS. 

THE ONES MARKED WITH « SHOULD EXIST BEFORE ANY PROGRAMS ARE RUN AND 

MAY BE CHANGED BEFORE RUNNING ANY PROGRAMS IF THAT SEEMS CONVENIENT TO YOU. 
THE OTHERS ARE CREATED WITHIN SOME PROGRAM TO BE USED BY 

THE CREATING PROGRAM NAME IS GIVER. 


SOME PROGRAM. 
ALLEND* 
Шш 
сі1814 


£LIGIAIAB 
ERBQUEUD* 


ЖЕҢ 
АШЕСЕР+ 


LISTA 
11814248 
PAGENUM 
АСЕ ТЕ 


USED IN 
MUST BE 
USED BY 
USED BY 
MUST BE 
CREATED 
CREATED 
USED IN 
MUST BE 
CREATED 
USED BY 


ENTER TO SIGNIFY ‘EXIT FROM PROGRAM'. 
1 CHARACTER. 
PRINTLINE TO MAKE TYPEBALL WIGGLE 


ENTER TO SEPARATE KEYWORD NUMBERS FROM TEXT OF ENTRY: 


1 CHARACTER. 

BY QINITA-THIS IS THE LIST OF KEYWORDS 

BY CINITA-TRIS IS THE STRUCTURE OF CLISIA 

ENTER TO SIGNIFY 'STOP TAKING THIS ENTRY" 

1 CHARACTER. 

IN PRINTLINE-NUMBER OF LINES PRINTED ON CURRENT PAGE 
ENTER TO SEPARATE LINES OF ENTRY. CANNOT APPEAR IN 


ANY ENTRY. MUST BE 1 CHARACTER. 


CREATED 
CREATED 
CREATED 
CREATED 


BY ІШІІА. THESE ARE THE BIBLIOGRAPHY ITEMS. 
BY ІШІТА. THIS IS TRE STRUCTURE OF LISTA 
BY PRINTLINE-THE NUMBER OF THE CURRENT PAGE. 
BY PRINT-TUE NUMBER OF LINES TO A PAGE. 


OF COURSE, THE VARIABLES WHICH ARE SINGLE CHARACTERS AND ARE USED TO CODE 
VARIOUS FUNCTIONS SHOULD BE DIFFERENT PROM EACE OTHER. 


FIGURE 15.3. A GLOBALINFO. 
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An Example of Program Development 


There was one who was famed for the number of things 
He forgot when he entered the ship: 

His umbrella, his watch, all his jewels and rings, 
And the clothes he had bought for the trip. 


He had forty-two boxes, all carefully packed, 
With his name painted clearly on each: 

But, since he omitted to mention the fact, 
They were all left behind on the beach. 
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In this chapter we will discuss some. of the recordkeeping which must 
£o оп іп any manufacturing operation. Manufactured products are 
rarely conceived of as being created from scratch. The product is usually 
considered to be made up of assemblies, each of which is in turn made 
up of its own constituent assemblies (subassemblies), until we finally 
get to the point where all the assemblies are simple parts. This decom- 
position into assemblies is a matter of great practical value, as a given 
item may be a subassembly for various different assemblies, and a cor- 
poration will often keep inventories of assemblies as well as of simple 
parts: if the pump in your air conditioner breaks down during the 
summer, you expect the company to have another pump ali ready to 
send you and are not willing to wait for them to make one. 


A SIMPLE BILL OF MATERIALS 


АП the relationships between the various assemblies and parts are given 
by a bill of materials. A bill of materials may take many forms, but the 
basic concept is invariant: for each assembly it shows those other as- 
semblies and parts which directly make it up. Figure 9.1 shows a simple 
bill of materials for a paper cutter. А paper cutter can be made from one 
arm assembly, one base, one guide and eight No. 2 screws. To make an 
arm assembly requires a handle, a blade and two more No. 2 screws. 

For a large product, with many hundreds of assemblies, it is impor- 
tant to be able to easily find out how many of the various simple parts 
are needed to manufacture some assembly. For example, how many No. 
2 screws are needed to make the paper cutter? There are eight needed 
on the first level, two more for the arm assembly and four more for the 
guide, a total of 14. How many No. 5 screws are needed? Each leg re- 
quires one, but there are four legs needed for each base so that a total 
of four is needed for each paper cutter. Just tracing through in this way 
to find the total requirements for some part can be nontrivial for a large 
product and this is the task we will tackle first. 

It is reasonable to assume that the actual bill of materials has been 
made available to us in some form which we can easily use. One com- 
mon representation of a bill of materials is an array. Suppose that there 
are s assemblies (counting the product itself as one) and t parts. The 
array will then have s columns and (s*t) rows. The entry at a given row 
and column tells how many of the parts or assemblies represented by 
that row are required for the assembly represented by that column. For 
example, Figure 9.2 shows such an array for the paper cutter, together 
with the correspondence between row and column numbers and the 
constituents of the paper cutter. The entry 1 in row 2 and column 1 
indicates that one item 2 (an arm assembly) is required to make one 
item 1 (a paper cutter). Similarly, the 4 in row 5 and column 3 shows 
that four legs are required to make one base. 


PAPER CUTTER 


ARM ASSEMBLY (1) 
HAWDLE (1) 
BLADE (1) 


№0.2 SCREWS (2) 


BASE (1) 


CUTTING SURFACE (1) 


LEGS (4) 


RUBBER TIPS (1) 
NO.5 SCREWS (1) 


GUIDE (1) 
RULER (1) 


PAPER HOLDER (1) 
NO.2 SCREWS (4) 


NO.2 SCREWS (8) 


FIGURE 9.1. A bill of materials. 


FIGURE 9.2. A bill of materials array. 


PAPER CUTTER 
ARM ASSEMBLY 
BASE 

GUIDE 

LEG 

HANDLE 

BLADE 

NO.2 SCREW 
CUTTING SURFACE 
RUBBER TIP 
NO.5 SCREW 
RULER 

PAPER HOLDER 


соосоооооовыыо 


оооооююе»оооосоос 


оосокооогкоооо 


е,ек‚коосокооооооо 


ооееооооооооо 
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We can expect this array to have certain properties which will make 
our task somewhat easier. (Presumably some other programs will have 
the responsibility for putting the array together in the proper way— 
which does not mean that our program should not check to make sure 
that the properties it expects are present.) Certainly we would not ex- 
pect any assembly to have itself as one of its subassemblies. By the 
same reasoning, if assembly А is used in assembly B, then assembly В 
should not be used in assembly A. This means that there is a way to 
number the assemblies so that the upper right-hand corner of the array, 
the main diagonal and the elements above it, consist of all zeros. We 
will assume (and check) that the array is presented to us in this lower 
diagonal form. Note that the array in Figure 9.2 is in lower diagonal 
form. 

Another reasonable expectation is that no column will be entirely 
zeros, for this would indicate an assembly (as distinct from a simple 
part) with no subassemblies or parts. We cannot make the same assump- 
tion about the rows, however. In Figure 9.2 it is clear that the first 
row must be all zeros since it is not a subassembly of anything. Further- 
more, since a company often manufactures many similar products, such 
as the deluxe paper cutter and the executive paper cutter, which have 
many parts in common with each other, it might be reasonable for all 
of these products to be part of the same array, and then each such 
product would be associated with an all zero row. 

Figure 9.3 shows a structure chart for the basic task of computing 
the total number of each kind of part required to make a specific as- 
sembly, called UNIT, which will be an argument to the program. 

We first check that the array, which will be a global variable called 
NEEDS, and the argument UNIT have the proper form. The variable 
NUMBERS is a vector which we initialize to be equal to the column of 
NEEDS which corresponds to UNIT; in this way each entry of NUM- 
BERS represents the number of the corresponding part or assembly 
needed to make assembly UNIT. At first, NUMBERS just shows the 
direct constituents of UNIT, but we will explode each assembly into its 
constituents until we finally have only parts represented in NUMBERS. 

By the assumption that the array is lower diagonal, we see that for 
an assembly numbered T the only assemblies which can be its con- 
stituents are those numbered higher than T. Thus, we can examine the 
elements of NUMBERS which represent assemblies (rather than simple 
parts) one by one. Suppose that in making our assembly UNIT we need 
n copies of some assembly A; we can find out what the subassemblies 
of A are and then add the appropriate number of each to the corre- 
sponding element of NUMBERS. For each subassembly of A, we find 
out how many are needed to make up one А from NEEDS and then 
multiply by n to find out how many are needed for UNIT. 

As an example, we can explode the base of the paper cutter, assem- 
bly 3. Column 3 of the array is shown in Figure 9.4A. The base requires 


UNIT is the number of an assembly 
(о) NEEDS is the global аттау of assemblies and parts requirements 


NUMBERS is a vector which will have for its i-th element the number 
of item#i which are required 


Check the validity of UNIT 


Check the validity of NEEDS 


NUMBERS = NEEDS[;UNIT] 


(0) Now loop through the sub-assemblies of UNIT 


ITEM — UNIT 


DO until (oóNEEDS[2] < ITEM < ITEM +1 


NUMBERS[ITEM] = 0 
2 


NUMBERS = NUMBERS 
[ITEM] XNEEDS[;ITEM] 


NUMBERS[ITEM] < 0 


Print the parts list and requirements 


FIGURE 9.3. A design for TOTALS. 


А) 


В) 


000000001 4 4&4 0 0 


FIGURE 9.4. Exploding the base. 


249 


250 


Bills of Materials 


four of assembly 5 (the legs), so we add to this vector four times the 
fifth column, and then set the third element equal to 0 since that as- 
sembly has already been exploded. The result is Figure 9.4B. Since the 
first five elements of the vector (corresponding to assemblies) are now 
all 0 we have exploded the base into its ultimate constituents: one cut- 
ting surface, four rubber tips and four No. 5 screws. It is clear that, be- 
cause of the structure of the array, once we explode an assembly (or 
ignore it because its entry in NUMBERS is 0) we never have to con- 
sider it again. 

Figure 9.5 shows the program TOT ALS which implements the struc- 
ture chart, The first line is a call to a program CHECKUP which inspects 
the array NEEDS to be sure that it has the desired properties; CHECK- 
UP is shown in Figure 9.6. The remainder of TOTALS is relatively 
straightforward, although the last two lines, which actually print the 
totals, may be a little complicated. Тһе first sets up a two column array 
whose first column consists of part and assembly numbers and whose 
second column is the vector NUMBERS. Since only the elements of 
NUMBERS which correspond to simple parts are nonzero at this point, 
the last line prints only those rows which correspond to simple parts. 


a 


TOTALS UIT; NUMBERS ; ITEM SIDE ,;DISPLAY 

[1] CHECKUP 

122 a THIS CHECKS FOR VALIDITY ОР THE ASSEMBLIES-AND-PARTS 

13] а VERSUS ASSEMBLIES ARRAY. NEEDS 

[4] 'TOTALS:ARGUMENT NOT SCALAR ' ERROR i«o,UNIT 

L5] — 'TOTALS:ARCUMENT НОТ INTEGER' ERROR UNITzLUNIT 

[6] 'TOTALS:ARGCUMENT OUT OF BOUNDS ' ERROR(UNITsO)V(UNIT» CONEEDGD (24) 

[7] — NUMBERS-BEEDSL S UNIT) 

[8]  ITEM-UNIT 

L9] QITEM: +ENDOITEM WHEN(eUEEDS)U2 )- ITEM- ITEM 1 

(101 NUMBERS«WUMBERS* WEEDS; ITEM] x NUMBERSUITEM) 

(111 NUMBERSLITEM]«0 

[12] 41ТЕН 

[13] ENDAITEM:'THE PART NUMBERS AND QUANTITIES РОН ASSEMBLY 'UNIT;' ARE:' 

(із) SIZE+oNUMBERS 

(15] DISPLAY«-(((SIZE,1)0iSIAE 

1161 DISPLAYLCOUERDG L2 ) 812. 
v 


((SIZE,1)pNUMBERS)) 


FIGURE 9.5. The program. 


v CHECKUP;SIZE;UPPER 
[1] a----- THIS ROUTINE CHECKS THE ASSEMBLIES+PARTS ARRAY NEEDS 
(2] "ШЕЕр5 NOT PROPERLY SHAPED ' ERROR 2*poUEEDS 
(3] ‘NEEDS CONTAINS NEGATIVE NUMBERS ' ERRORV/,O>NEEDS 
142 ‘NEEDS NOT INTEGER ' ERRORv/,UEEDG*LUEEDG 
[$] '#ЕЕР$ CONTAINS ASSEMBLIES WITH NO CONSTITUENTS ' ERRORv/O-«/[1] NEBR 
(61 — UPPER-(iSIZE)s. 51 (SIZE- (o NBERE) (23) 
[7] ‘REEDS IS NOT LOWER DIAGONAL ' ERROR-^/,0-UEEDGUiSIZE; ]XUPPER 


FIGURE 9.6. Checking for errors. 
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Figure 9.7 shows the results of running the program for various as- 
semblies in the paper cutter. 


EXERCISES 


9-1. Lines 7 and 8 of CHECKUP create an array which is upper diag- 
опа! and multiply this with part of NEEDS. If NEEDS is lower 
diagonal the result should be all zeros. Explain the details of this 
operation. 

9-2. Rewrite TOTALS so that it does not assume that the array is 
lower diagonal. 

9-3. Rewrite CHECKUP so that if the array is not lower diagonal the 
program tries to put it in that form and only reports an error if 
it cannot be made lower diagonal. 

9-4. Rewrite CHECKUP so that if there are assemblies with no con- 
stituent parts they are deleted from NEEDS. 

9-5. Rewrite TOTALS so that only nonzero parts requirements are 
printed. 

9-6. Rewrite TOTALS so that the result is a total requirements chart: 
that is, it will show how many of each assembly are required as 
well as how many of each part. 

9-7. It is possible to use a primitive operator to find the immediate 
constituent requirements of any assembly. Let NUMBERS be the 
vector whose length is the number of assemblies, which is all zeros 
except for a one in the position corresponding to the desired as- 
sembly. Then the expression in Figure 9.8 is a vector whose size is 
the number of rows of NEEDS and whose elements indicate the 
requirements for the corresponding assemblies and parts which are 
immediate constituents of the original assembly. Investigate the 
properties of this inner product operation and write a version of 
TOTALS which uses it, (Hint; what happens if more than one ele- 
ment of NUMBERS is nonzero?) 

9-8. Write a program which creates the array NEEDS from information 
supplied by the user at the terminal. 

9-9. Part of what is important about a report is the way it is presented. 
Often we would like to get our output printed on clean sheets of 
paper. Modify TOTALS so that if the input is not in error it prints 
a message telling the user to put in a clean sheet of paper and 
then waits until the user signals that it should begin. (Hint: use 
quote-quad input to make it wait and have the signal be a carriage 
return.) 


TOTALS 1 
THE PART NUMBERS AND QUANTITIES FOR ASSEMBLY 1 ARE: 


очо 


© 
rr ERR 


TOTALS 3 
THE PART NUMBERS AND QUANTITIES FOR ASSEMBLY 3 ARE: 


6 0 
7 о 
8 0 
9 1 
10 8 
11 4 
12 0 
13 о 
ТОТАІ5 5 
THE PART NUMBERS AND QUANTITIES POR ASSEMBLY 5 АНЕ: 
6 0 
7 0 
8 0 
9 0° 
10 1 
11 1 
12 0 
13 9 


FIGURE 9.7. Running the program. 


WEERS+ .xNUMBERS 


FIGURE 9.8. An inner product operation. 
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INVENTORIES 


It is somewhat more realistic to suppose that the firm has on hand а 
large inventory of the parts and assemblies needed, and so will not nec- 
essarily need to purchase every single part needed to produce the next 
batch of paper cutters, It is relatively straightforward to modify the 
program TOTALS in Figure 9.5 to take advantage of the existence of 
an inventory. 

We can assume that the inventory is given by a vector INVENTORY 
whose size is the same as the number of rows of NEEDS. In the pro- 
gram TOTALS, whenever we calculate the number of parts or subassem- 
blies needed to make a given assembly (ITEM) on line 10 we would 
first subtract the number of assemblies of that type which are already 
in the inventory. Thus, we would only be calculating the parts require- 
ments for assemblies which actually need to be produced. Since the 
loop variable ITEM only takes on values associated with assemblies, we 
would still not have taken account of the fact that there may be a large 
number of unassembled simple parts in the INVENTORY as well. So, 
when the loop terminates we should subtract from the vector, NUM- 
BERS, of parts requirements the parts inventory. Of course, in neither 
of these subtractions do we want to end up with a negative number, 
which might happen if the inventory is larger than the requirement. In 
each case, therefore, we will use the maximum operator to ensure that 
the results of the subtractions are never smaller than 0. 

Figure 9.9 shows the revised program. The subtractions take place 
in lines 11 and 15. It is likely that, under the assumption of a large in- 
ventory, most of the parts needed to produce some assembly will be on 
hand, and so most of the requirements listed wil! be 0. Thus, in lines 
17-23 we only print the nonzero parts requirements: a special message 
is printed in line 23 if no parts at all are needed to produce the assem- 
bly. Naturally, we also modify CHECKUP to investigate the new datum, 
INVENTORY. Figure 9.10 shows a version of CHECKUP which ensures 
that INVENTORY is a nonnegative integer vector of the proper length. 


гіз 
[21 
i31 
[s] 
[57 
[6] 
t] 
[81 
[9] 
[101 
[11] 
(121 
[13] 
[15] 
[15] 
[16] 
[17] 
Ciel 
1192 
1201 
1211 
[22] 


TOTALS URIT.NUMBERS;ITEM; SIZE NONAZERO 
CHECKUP 
-THIS CHECKS FOR VALIDITY OF THE ASSEMBLIES-AUD-FARTS 
VERSUS ASSEMBLIES ARRAY, REEDS 
AND FOR A VALID INVENTORY ARRAY INVENIORI 
"TOTALSiARGUMENT WOT SCALAR ' ERROR i«p,UNIT 
'TOTALS:ARGUMENT NOT INTEGER’ ERROR UNIT*LUNIT 
'TOTALS:ARGUMENT OUT OF BOUNDS ' ERROR(UNITSO)V(UNIT^(pUEEDSD (21) 
NUMBERS*WEEKDSU :UNIT) 
ITEM«UNIT 
AITEM:*ENDAITEM WHEN (OVEKDS)L2)<ITEN+ITEN+1 
RUMBERS*NUMBERS+HEEDS( 3 ITEM J x (OF MUMBERS( ITEM] -LUVENTORYCITEM]) 
a-----SUBLRACTING ASSEMBLIES ON HAND FROM NEEDS 


NUMBERS ITEM ]+0 

*AITEM 

ENDAITEM:NUMBERS+O[ NUMBERS-INVZUTORI 
a----- SUBTRACTING PARTS ON HAND 


HONE IFA/NUMBERS*0 

‘THE PARTS REQUIRED FOR ASSEMBLY ';UNIT;' ARE:' 
WONAZERO+ (NUMBERS#0) /VolUMBERS 

SIZE*o,NONAZERO 
(C(SIZE,1)0NONAZERO) , (SIZE 1) pNUMBERS[ NONAZERO) 
+0 


[23] NONE: 'HO PARTS NOT IN THE INVENTORY ARE REQUIRED FOR ASSEMBLY ‘UNIT 


v 


FIGURE 9.9. The revised program. 


газ 


а 


CRECKUP ;SIZE;UPPER 

a THIS ROUTINE CHECKS THE ASSEMBLIES+PARTS ARRAY REEDS 

a -AND THE INVENTORY VECTOR INYENIORI 

"NEEDS КОТ PROPERLY SHAPED ' ERROR 2*pplELUg 

‘HEEDS CONTAINS NEGATIVE NUMBERS ' ERRORv/,0>RESQS 

"EEEDS БОТ INTEGER ' ERRORY/ ULEDO*LEEEDS 

"NEEDS CONTAINS ASSEMBLIES WITH NO CONSTITUENTS ' ERRORv/0-/11] &EEDS 
UPPER-(ASIZE)*. Si (SIZE CGREEQRO [21) 

"HEEDS 15 NOT LOWER DIAGONAL ` ERBOR-^/ 0-NEEDSU1SIZE; ]«UPPER 
INVENTORY NOT A VECTOR ' ERROR 1х001ШУЕШТОЕІ 

‘INVENTORY NOT NONNEGATIVE INTEGERS ' ERRORV/INYENIQRI*l|IRVENZORI 
‘INVENTORY DOES NOT CONFORM WITH NEEDS ' ERROR(oINYVENTQEID* (oNEEQED Uil 


FIGURE 9.10. The revised error checker. 
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“The program TOTALS is now 23 lines long. While this is not an ex- 
cessive size, it is long enough that it becomes a little hard for us to grasp 
the entire program at once. lt seems that as programs get to be close to 
25 lines long they reach the maximum size that we can deal with easily 
(this is known as the “rule-of-25”). So, even though TOTALS is not 
quite that big, we should look at it carefully to see if there is some ac- 
tion that really does not belong. 

The program has three basic actions: exploding assemblies, calculat- 
ing parts requirements, and printing the results. These seem to fit well 
together. A fourth important action, checking the data for validity, 
does seem to be a different sort of thing, and so its details have been 
buried in the routine CHECKUP. But what about checking the validity 
of the argument to TOTALS? Isn't that more like what goes on in 
CHECKUP than the rest of the actions in TOTALS? Indeed it is, and it. 
is quite easy to bury that, too, in CHECKUP: the revised programs ap- 
pear in Figures 9.11 and 9.12. 


V TOTALS UNIT; NUMBERS ;ITEM;SIZE;NONAZERO 
[1] CHECKUP 


i2] -THIS CHECKS FOR VALIDITY OF THE ASSEMBLIES-AND-PARTS 
[3] ^ VERSUS ASSEMBLIES ARRAY, NEEDS 

[u] а AND РОВ А VALID INVENTORY ARRAY INVENTORY 

[5] AND THAT THE ARGUMENT UNIT IS VALID 


^ 

(61 NUMBERS+NEEDSC UNIT] 

[7]  ITEM-UNIT 

(81 AITEM:*ENDAITEM УНЕМ(оЦБЕП8)(21<1ТЕМ«ІТЕМ%1 

(91  NUMBERSe-NUMBERS*üEEDGL :ІТЕМІк(ОГМИМВЕВ8І1ТЕМ)-ІНҮЕЕТОВҮСІТЕМІ) 

110) m-----SUBTRACTING ASSEMBLIES ON HAND FROM NEEDS 

[11] NUMBERS(ITEM 10 

(122 -АІТЕМ 

[13] ENDAITEM:NUMBERS«0O[ NUMBERS - [UVENTORY 

1181 в----- SUBTRACTING PARTS ON HAND 

[15] NONE IFA/NUMBERS-O 

[16] 'THE PARTS REQUIRED FOR ASSEMBLY ';UNIT;' ARE:* 

[17] WOWAZERO+(HUMBERS#0) / ypIIUMBERS 

[18] SIZE«p,NONAZERO 

[19]  ((SIZE,i)pNONAZERO),( (SIZE, ) oNUMBERS[WONAZERO]) 

[20] +0 

[21] МОМЕ:'НО PARTS WOT ІН THE INVENTORY ARE REQUIRED FOR ASSEMBLY ';UNIT 
Ж 


FIGURE 9.11. Further revisions to the program. 


Я CHECKUP;SIZE;UPPER 
[1] ^ THIS ROUTINE CHECKS THE ASSEMBLIES+PARTS ARRAY REEDS 
[2] a -AND THE INVENTORY VECTOR IQVERIQRI 
[31 -AND TEE ARGUMENT, UNIT, TO TOTALS 


^ 

[u] ‘WEEDS NOT PROPERLY SHAPED ' ERROR 2ғорЦЕЕОӘ 

[51 "| 06 CONTAINS AEGATIVE NUMBERS ' ERRORV/ , 0>ИЕЕЙЕ 

[6] ‘WEEDS NOT INTEGER ' ERRORY/BEEDG*LUEEDS 

[7] ‘WEEDS CONTAINS ASSEMBLIES WITH NO CONSTITUENTS ' ERRORV/O=+/(1] БЕРЕ 
Гау UPPER+(1STZE) +. SA SIZE e CONEEDS L2) 

(3] "WEEDS IS NOT LOWER DIAGONAL ' ERROR~A/,0=NKEDSt SIZE; «UPPER 

[10] 'ZEEENZQRI NOT A VECTOR ' ERROR 1*ppIŅKENTQRI 

(111 ‘INVENTORY NOT NONBEGATIVE INTEGERS ' ERRORY/INYEEIQüI*L | ISYERTORI 
(12) ‘INVENTORY DOES ROT CONFORM WITH RERDG ' ERROR (p IRVERIQRI)= (рЕЕЕ08)(1) 
(131 ‘TOTALS ARGUMENT NOT SCALAR ' ERROR i«p.UNIT 

(141 ‘TOTALS ARGUMENT NOT INTEGER ' ERROR UNIT# UNIT 

[15] ‘TOTALS ARCUNENT OUT ОР BOUNDS ' BRROR(UNITSO)¥ (UNIT> (oONEEQSO U22) 


FIGURE 9.12. Further revisions to the error checker. 
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Some sample output is shown in Figure 9.13. 


EXERCISES 


9-10. ІҒ we need 1749 paper cutters we have no effective way to get 
the parts requirements. Running TOTALS would only tell us 
the requirements for one paper cutter. Multiplying that by 1749 
might not be enough, as the inventory would change each time 
we make a paper cutter and we might run out of something half- 
way through. Modify the program TOTALS so that the user can 
request the parts requirements for any number of some assembly. 
Don't forget to alter the print statements to reflect the number 
of assemblies being produced, or to check any additional argu- 
ments or input in CHECKUP. 


9-11. By combining some statements we would shorten TOTALS con- 
siderably. In fact, by combining many statements on one line, 
we can often decrease the size of a program way below 25 lines. 
Explain why such clever manipulations do not avoid the problems 
which the rule-of-25 is designed to eliminate. (Hint: there may 
be an APL programmer nearby who writes programs that way. 
Try to read one of them.) 


AN EFFICIENT DATA STRUCTURE 


We have been doing very well writing programs for our little 5-by-13 
bill of materials array, but many products are considerably larger. Other 
test cases will verify for you that the program will certainly work on 
larger arrays, but the program itself is not the only limitation. It is not 
at all difficult to imagine a product with so many assemblies and sub- 
assemblies that the resulting array will not fit into one workspace. 
There are various techniques for circumventing this problem. АП of 
them are likely to require programs which take longer to run; in fact, 
the trade off between time and space is probably the most common one 
in programming. The increase in running time shouldn't bother us as 
long as the resulting program does the job which the one we have now 
can’t. 

One way to fix the program is suggested if we look back at the 
array NEEDS in Figure 9.2, Of the 65 elements in the array, only 14 
are nonzero. An array in which most of the elements are zero is called 
sparse. It is clearly a tremendous waste of space to store a large sparse 
array. Don’t be misled into thinking that the zeros give us no informa- 
tion; they are informative, but in a negative way. We would have the 
same information if we just listed those places in the array which are 
not zero. 


INVENTORY + 0000100200101 


TOTALS 1 
THE PARTS REQUIRED FOR ASSEMBLY 1 ARE: 
6 1 
7 1 
B 12 
3 1 
10 3 
11 2 
12 1 


TOTALS 5 


THE PARTS REQUIPED FOR ASSEMBLY S ARE: 


10 1 


INVENTORY + 2+INVENIQRI 


INVENTORY 
2252: 27/20 Жы ЖЕ Ж. Же сы ЖЫЯ: 
TOTALS 1 
THE PARTS REQUIRED FOR ASSEMBLY 1 ARE: 
8 4 
TOTALS 5 


NO PARTS NOT IN THE INVENTORY ARE REQUIRED FOR ASSEMBLY 5 


FIGURE 9.13. Comparing needs with inventory. 
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We could do this with a three column array: in each row the first en- 
try would be the number of a row of NEEDS, the second entry would 
be à column number and the third entry would be the value in the given 
row and column of NEEDS. Тһе space taken up by this array, which we 
might call XNEEDS, is three times the number of nonzero elements of 
NEEDS. 1t is reasonable to assume that a bill of materials array would 
be at least so sparse that no more than one-third of its elements are 
nonzero. 

Figure 9.14 shows the array NEEDS and two possible versions of 
XNEEDS. It is easy to check that each of these faithfully represents 
NEEDS. In one the rows are ordered, while in the other they seem to 
be random. Should we require that the array XNEEDS always be in 
some specified order, as we did with NEEDS? 

Actually, we would be wiser to make no such assumptions about 
XNEEDS. Suppose that the company decides to make some additions 
to the product, such as using the No. 2 screws throughout. It is easy to 
just change the row of XNEEDS that reads 11 5 1 to read 8 5 1. If we 
do not require that XNEEDS be in a particular order, then we do not 
have to go through a (possibly expensive) sorting process after we make 
this change. As we will see, making any assumptions about the order 
will just lead us up a blind alley anyway, as we do not need to make 
such assumptions. We will, however, keep our basic assumptions about 
NEEDS, which XNEEDS represents. 

Looking at TOTALS in Figure 9.11 to see what changes the use of 
XNEEDS forces upon us we see that, aside from the comments, the 
only appearances of NEEDS in the program are on lines 6, 8 and 9. On 
line 8 we need to know the number of columns of NEEDS and on line 
6 we are implicitly asking for the number of rows. We will use a global 
variable XSHAPE to represent these two quantities. It will be a vector 
of size 2: the first element will be the number of rows of NEEDS and 
the second will be the number of columns. 

The references made to NEEDS on lines 6 and 9 are requests for 
specific columns. Thus, it is clear that we need to write a function 
which, given any column number of NEEDS, can produce that column 
by looking at XNEEDS. Such a program is COLUMN, given in Figure 
9.15. After checking the validity of the argument, we let ROWS have 
for its value the vector of the numbers of those rows of XNEEDS 
whose second element is equal to the argument, INDEX. Each of these 
rows represents an element in column number INDEX. Thus, after ini- 
tializing the return value RESULT to be all zeros, with length equal to 
the length of a column of NEEDS, those elements of RESULT which 
represent rows of NEEDS having nonzero entries in column INDEX are 
set to be those corresponding nonzero entries. Notice that COLUMN 
makes no assumptions about the way that the rows of XNEEDS might 
be arranged. 
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FIGURE 9.14. Three versions of the array. 


(13 
[2] 
[3] 
[s] 
(51 
te] 
[7] 


v 


y 


RESULT+COLUMN INDEX;ROWS 

а----- PRODUCES REQUESTED COLUMN OF BILL-OF-MATERIALS ARRAY 
'COLUMN:ARGUMENT NOT SCALAR ' ERROR 1<p ,INDEX 

'COLUMN:ARGUMENT NOT INTEGER ' ERROR INDEX*LINDEX 
'COLUMN:ARGUMENT OUT OF BOUNDS ' ERROR (INDEX«1)VINDEX^AGBAPRU? 1 
ROWS*(XUEEDSU 2 )- INDEX) /v CoXUEEQSD L1) 

RESULT+KSHAPE(1 100 

RESULT (XNEEDSLROWS 1] 1+XHEEDELROWS; 3) 


FIGURE 9.15. Reconstructing one column. 
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A revised version of TOTALS which uses XNEEDS and COLUMN 
is shown in Figure 9.16. Notice that we have changed the comments to 
reflect the current status of the program. We have not finished our cor- 
rections yet, however, as we must also modify CHECKUP. 

In Figure 9.12 CHECKUP looks for five different types of errors in 
NEEDS. The first is now irrelevant since we will no longer be indexing 
into NEEDS. The second and third will now be performed on XNEEDS. 
We would also like to retain the fourth and fifth checks. To see if there 
are any assemblies without constituents we can examine the columns 
one at a time, using COLUMN, to see if any column is all zero. Simi- 
larly, the last check can be effected by looking to see if any element of 
column i is a positive integer smaller than í. 

Of course, some additional checks on XNEEDS will also be neces- 
sary. The elements in the first two columns should be meaningful row 
and column indices—that is, within the bounds specified by XSHAPE. 
Since we will be using XSHAPE, we will want to check it, too. Figure 
9.17 shows the resulting program. 


EXERCISES 


9-12. Compare the running time of the newest version of TOTALS 
with that of one of the earlier ones. Try to determine what the 
difference in running times would be if the array NEEDS were as 
large as you could get into your workspace. How long does the 
latest version of TOTALS take with an array XNEEDS which is 
as large as you can get into your workspace? How long would a 
previous version take with the corresponding NEEDS? 

9-13. Prepare detailed documentation for the program package con- 
sisting of CHECKUP, TOTALS and COLUMN. Explain what 
global variables are necessary, what they represent and what 
form they should take. Explain how to use the programs, what 
the output means, what error messages might occur and what 
action to take in each case. 

9-14. Repeat Exercises 9-3 and 9-4, using XNEEDS instead of NEEDS. 


STRUCTURING SPARSE CHARACTER DATA 


One of the important tasks of a computer programmer is to translate 
the output of the computer and to put it in the form desired by the 
programmer's “customers.” For example, the output of TOTALS 
would almost certainly not be acceptable in an industrial organization. 


[11 
[2] 
[з] 
[5] 
152 
[61 
[7] 
181 
[9] 
[10) 
E11} 
[12] 
(13) 
[14] 
[151 
1161 
117] 
118] 
119] 
[20] 
1211] 
122) 
123] 
[241 


У TOTALS UNIT;UUMBERSiITEM SIZE NONAZERO 

CHECKUP 
-THIS CHECKS FOR VALIDITY OF THE ASSEMBLIES-AND-PARTS 
-VERSUS ASSEMBLIES ARRAY, XNEEDS 
-(WHICH REPRESENTS THE ORIGINAL ARRAY NEEDS) 
-AND FOR A VALID INVENTORY ARRAY INVENTORY 
-AND THAT THE ARGUMENT UNIT IS VALID 

HUMBERS+COLUMH UNIT 

a-----. PRODUCING COLUMN NUMBER UNIT OF NEEQS 

ITEM-UNIT 
AITEM: +ENDAITEM WHEN ХЕНАРЕ 2 1<ГТЕМ+ГТЕМ+1 

-АТТЕМ IF NUMBERSLITEM]-O 

NUMBERS*NUMBERS+ (COLUMN ITEM)» (0| NUMBERSLITEM]-INYEUIQRIUITEM]) 
a-----SUBTRACTING ASSEMBLIES ON HAND FROM NEEDS 
RUMBERS( ITEM |+0 

A ITEM 
ENDAITEM:NUMBERS«O[ NUMBERS - LULENTORY 
a-----SUBTRACTING PARTS ON HAND 

"NONE IPA/NUMBERS-0 

‘THE PARTS REQUIRED FOR ASSEMBLY ';UNIT,' AR. 
NONAZERO+ (NUMBERS 0) / Xp NUMBERS 

SIZE*o ,NONAZERO 
(CSIZE,1)pNONBZERO) , ((SIZE , 1) pWUMBERSLNONAZERO) 

+0 
NONE:'NO PARTS NOT IN THE INVENTORY ARE REQUIRED FOR ASSEMBLY ';UNIT 


ç 


FIGURE 9.16. Using the new data structure. 


CHECKUP ;ASSEMBLY 
-THIS ROUTINE CHECKS THAT XWEERS REPRESENTS А 
PROPERLY FORMED ASSEMBLIES«PARTS ARRAY WEEDS 
(WHICH INVOLVES CHECKING THE VECTOR XSHAPE); 
IT ALSO CHECKS THE INVENTORY VECTOR INVENTORI 
a- AND THB ARGUMENT, UNIT, TO TOTALS 
"XSHAPE NOT А VECTOR ' ERROR 12p0XSU4PE 
ISHARE NOT SIZE 2 ' ERROR 260100425 
'KGUAPE NOT POSITIVE INTEGERS ' БАВОВУ/ SUAPESO) v (GHAPU* Ц КЗНАРЕ 
"ДЕЕЕ0С NOT Ай ARRAY ' ERROR 2«opXHGEDR 
'KNEEDS DOES NOT HAVE EXACTLY 3 COLUMNS ‹ ERROR 3w(pKREEQS)(2]) 
*XUEEDS WOT NONNEGATIVE ' БЕВОЯУ/(Ц 0550 
‘KWEEOS NOT NONNEGATIVE INTEGERS ' ERRORY/ RHEEQS"l |XHEEDS 
‘XNEEDS HAS COLUMN OR ROW INDEX EQUAL TO O ' BRRORV/,O=KUBEQSL; 1 2) 
"KHEEDS HAS ROW INDEX TOO LARGE ' ERRORV/XNBEDSL 1)" XSEAPEL1] 
'K&EEDS HAS COLUMN INDEX TO LARGE ' ERRORV/XMEEDS( +2 > ЗНАРЕГ21 
ASSENBLI+O 
6ASSEMBLY:+EBDAASSEMBLI WHEN ХЕНАРЕГ2 )<ASSENBLI*ASSEMBLY +4 
'KEEEDS HAS ASSEMBLY WITH NO CONSTITUENTS ' ERRORA/O=COLUMN ASSEMBLY 
"KUEEQS NOT LOWER DIAGONAL ' ERRORY/(VASSENBLY e («COLUMN ASSEHBLT)/ vESEAPEC1) 
ASSEMBLY 
ENDAASSEMBLI: INVEUTQRY ПОТ A VECTOR ' ERROR 1*poLHVENZORI 
'IRÉENZORI DOES NOT CONFORM WITH KNERDS ' ERROR XGHAPELl]*oINYEZUIQul 
‘INVENTORY NOT NONNEGATIVE INTEGERS ' ERRORV/INVENTORI*l I INVENTORI 
‘TOTALS ARGUMENT HOT SCALAR ` ERROR 1<p UNIT 
‘TOTALS ARGUMENT NOT INTEGER ' ERROR UAIT*L UNIT 
‘TOTALS ARGUMENT OUT OF BOUNDS ' ERROR(UNITSO)v(UNITXGUAPEU21) 


FIGURE 9.17. Checking the new data structure. 
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Only the programming staff is likely to know which is part number 
seven. What we really want is a listing that tells how many blades need 
to be ordered. Probably both the name and part number for each item 
should be given, while TOTALS now gives neither. 

A simple solution to this problem is evident. We could create two 
arrays. The ith row of the first would hold the name of the part which 
TOTALS now identifies as i, and the ith row of the second could hold 
the part number. Then, when TOTALS is printing the requirements for 
the ith part it could also print the ith rows of the two arrays. We could 
keep one array with two planes or even just use a one plane array: of 
course we cannot mix numbers and characters in an array, but since we 
don't compute with the part numbers we can treat them as character 
strings. To keep all the information in a two-dimensional array, we 
would keep part numbers and names together in one string; to do this 
we would separate them by some special symbol, yielding things like 
‘No. 5 Screw!332905'. It is simple, using the index operator to separate 
the name from the number before printing. 

There is a larger problem, however, with which neither of these pos- 
sibilities deals. The array, no matter how many planes it has, is going to 
be rather sparse. Looking at the names in Figure 9.2 we can see that 
from a third to a half of the array would very likely consist of blanks 
whose only purpose was padding some rows so that they would be the 
same length as other rows. While this is a different form of sparseness 
from what we saw before, involving blanks rather than zeros, it is just 
as wasteful of space when large arrays are involved. Notice though that 
this array is structured in a way that the other one wasn't. In the other 
array a nonzero element could occur almost anyplace, while here the 
nonblank elements (including the blanks between words in a name) 
come bunched together in clusters. 

We can take advantage of this clustering by keeping two structures. 
One is a vector of the character strings we are interested in (for simplic- 
ity, we will just keep the part names and ignore the stock numbers), 
stored one right after the other. The other structure will be a numeric ar- 
ray which will indicate where in the vector a specific word is. This is 
comparable to separating the third column of XNEEDS and treating it 
as a separate vector. In this case, though, we can get away with storing 
less information than before. We don't need to store row and column 
information for each character in a name: it suffices to keep only the 
location in the vector of the first character in a name, and then the length 
of the name. Figure 9.18 shows how this might work in a simple case. 

As the array indicates, the second name begins in position 7 of the 
array and has six characters, so that it must be NORMAN. By taking 
advantage of the structure of the original array in this way, we need to 
store only the number of significant elements plus twice the number 
of names, rather than a much larger total of three times the number 
of nonzero elements as before. 


GLORIANORMANBILLY JEANBOBBY 


1 6 
7 6 
13 10 
23 5 


FIGURE 9.18. Representing a character array. 
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This method of storage requires both ап array PLACES and a vector 
NAMES. The program in Figure 9.19 will yield as its result the Nth name 
from the list NAMES. The actual look-up operation takes just one line, 
line 6. Since we want to select PLACES[N;2] successive elements from 
NAMES, we start with the vector 1, 2, ..., PLACES [N;2] and then add 
to all of its elements the quantity 1*PLACES[N;1]. This causes us to 
select the correct number of successive elements (PLACES{N;2]) from 
the correct position (PLACES[N;1] ). 


[11 
[2] 
131 
[sJ 
{51 
161 


РАРЕР 


BLADE 


Z-FIND N 

а----- RETURNS N-TH NAME FROM LIST NAMES 

'FIND: ARGUMENT NOT SCALAR ' ERROR 1<p,W 

‘FIND: ARGUMENT NOT POSITIVE ' ERROR Н<0 
'FIND:ARGUMENT NOT INTEGER ' ERROR N=LN 
'FIND:ARGUMENT OUT OF BOUNDS' ERROR(oPLACESD)[1]«N 
Z-«UAMESU 1*PLACESUN ;1 1e V PLACES UP ; 21] 


FIND 1 
CUTTER 


FIND 7 


FIGURE 9.19, Accessing the stored character array. 
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Finally, Figure 9.20 shows a revised TOTALS which incorporates 
the improved output formatting. In fact, except for the message which 
says that no parts at all are required, all of the printing has been moved 
to a separate program, PRINTOUT, shown in Figure 9.21. 

In PRINTOUT we find, as we did before, the numbers of those 
parts which are actually required, and then enter a loop to print their 
names and requirements. To have the output appear in neat columns, 
we would want the numbers always to appear starting in the same col- 
umn, regardless of the length of the name. Thus, in line 7 we calculate 
the number of spaces from the beginning of the line to the column of 
numbers by adding five to the length of the largest name. Then when 
we print the name and number in line 13 we ensure that the name is 
followed by the right number of blanks: when the left-hand argument 
of the operator fake is larger than the length of the right-hand argu- 
ment, the latter is padded with blanks. 


v TOTALS UNIT,NUMBERS;ITEM 
[1] CHECKUP 
[2]  a-----THIS CHECKS FOR VALIDITY ОР THE ASSEMBLIES-AND-PARTS 
[3] я -VERSUS ASSEMBLIES ARRAY, &UEEDG 
[a] а WHICH REPRESENTS THE ORIGINAL ARRAY NEEDE) 
tsi ND FOR A VALID INVENTORY ARRAY INVENTORI 
[6] а ND THAT THE ARGUMENT UNIT IS VALID 
[7] #UMBERS+COLUMN UNIT 
[e] а----- PRODUCING COLUMN NUMBER UNIT OF WEEDS 
[9]  ITEM«UNIT 
[10] AITEM:+ENDAITEM WHEN ХОНАРЕС21<ІТЕМеІТЕМ%1 
[11] >ҺІТЕМ IF NUMBERSLITEM]-O 
[12] NUMBERSe-NUMBERS* (COLUMN ITEM)x(O[ NUMBERSLITEM]-INVENTORILITEMl) 
(13] я----- SUBTRACTING ASSEMBLIES ON HAND FROM NEEDS 
[1%]  NUMBERSLITEM +0 
[15] +АТТЕМ 


[16] M : NUMBERS«O[ NUMBERS - LUYENTORY 
[17] SUBPRACTING PARTS ON HAND 
[18] IPA/NUMBERS-0 

(19) NUMBERS PRINTOUT UNIT 

[20] +0 


[21] NONE:'NO PARTS REQUIRED FOR ',FIND UNIT 
v 


FIGURE 9.20. Final revisions to the program. 


V NUMBERS PRINTOUT UNIT;PARTS;NAME;BLANKS 


1] -NUMBERS IS VECTOR OF REQUIREMENTS 
[2] -FOR ASSEMBLY NUMBERED UNIT 

[31 -VALIDITY OF ARGUMENTS ASSURED BY 
41 --ТНЕ CALLING PROGRAM 


5j  'THE PARTS REQUIRED FOR ',(FIND UNIT),' ARE:' 
6] PARTS+(NUMBERS#0) / p NUMBERS 
[7] | BLANKS«e5«[/ ,PLACESL PARTS ;2] 
--GIVES THE NUMBER OF SPACES BETWEEN 
---NAMES AND NUMBERS 
101 PARTS+0,PARTS 
[11] APARTS:-ENDAPARTS WHEN O-pPARTS-1VPARTS 
[12] NAME«-FIND i*PARTS 
[13] BLANKStNAME;NUMBERS(1tPARTS] 
[14] +APARTS 
15] ENDAPARTS:+0 
v 


FIGURE 9.21. The output program. 
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The output from this latest version of the program is shown in Fig- 
ure 9.22. 


EXERCISES 


9-15. Update CHECKUP to reflect the new data structures. 

9-16. What does take do when the right-hand argument is numeric and 
has length less than the left-hand argument? 

9-17. Would the calculation in FIND be made simpler if it was done іп 
O-origin indexing? 

9-18. If space is important, we don't really need both columns of 
PLACES. Show that either column by itself would give us all 
the information we need. 

9-19. A different way to handle the names is to place them in a vector, 
separated by some special symbol which is guaranteed not to ap- 
pear in any name. To find the Nth name we have only to search 
for the locations of the (N—1)st and Nth occurrences of the spe- 
cial symbol. Use this method in place of the one given in the 
text: compare space requirements and running times. 

9-20. The format of Figure 9.22 would be improved if all the low 
order digits of the various numbers appeared in the same col- 
umn. Do this. (Hint: read Chapter 8.) 

9-21. Include with each name a part number, separating the two by a 
special symbol. PRINTOUT should put the name and part num- 
ber in different columns. 

9-22. Revise the documentation you did in the previous section. 

9-23. The problem of handling character strings of various lengths is 
sufficiently important that it deserves the creation of a package 
of utility programs to deal with it. There should be programs for 
adding an item, dropping an item, and finding the location of an 
item which is already in the list, as well as a version of FIND to 
retrieve items from the list. A program to list all the items would 
also be useful. Note that each modification of the list requires a 
corresponding modification in PLACES. After the package is 
completed and tested, prepare documentation on it and offer it 
to your public library. 


TOTALS 1 
THE PARTS REQUIRED FOR PAPER CUITER ARE: 
HANDLE 
BLADE | 
NO.2 SCREW 12 
PAPER HOLDER 1 
TOTALS 5 
THE PARTS REQUIRED FOR LEG ARE: 
RUBBER TIP 1 
М0.5 SCREW 1 


FIGURE 9,22, Using the program. 


271 


272 


Bills of Materials 


RECURSION 


We already have all the building blocks for another useful report-gener- 
ating program. An indented bill of materials is a report in the form of 
the two shown in Figure 9.23. It is an explosion of some assembly, with 
ali subassemblies of the same level indented the same amount. In the 
first example the assembly being exploded is the paper cutter, which is 
listed as a first level assembly. Its direct constituents are second level 
assemblies and so on. 

We used a similar bill of materials in Figure 9.1 to create the array 
NEEDS in the first place, but as the various models and subassemblies 
are changed in production the original bills of materials may become 
out of date. Thus, a program which can explode any assembly in this 
way can be a valuable tool. 

Because the explosion required is similar to ones we have already 
done we will write the program in a different but equally natural way. 
Let us consider what the program which produces Figure 9.23 must do: 
different programs for the same general task may sometimes result 
from different ways of dividing the problem into small, manageable 
pieces. Suppose we say that “exploding a simple part” consists of print- 
ing its name. What then will it mean to explode an assembly, all of 
whose constituents are simple parts? This cannot mean simply printing 
the names of the constituents, as it would in the approach we used for 
TOTALS, as that would leave us without the name of the assembly it- 
self. Rather, it must mean printing the name of the assembly and then 
exploding the constituents. The result of the two interpretations would 
surely be the same if we chose to do a little fiddling, but the latter is 
preferable as it uses the concept, which has already been defined, of 
exploding a part. 

Now we have a well-defined notion of explosion: 


To explode a part we print its name. 
To explode an assembly we print its name and then explode it con- 
stituents. 


This covers even the case where the constituents are not all simple parts, 
for if one happens to be an assembly we just apply the second part of 
the definition to it. Imagine that we had a program called EXPLODE to 
explode a part or assembly. The definition that we have would mean 
that EXPLODE had to call itself! For a part, EXPLODE would just 
print the part name. For an assembly, EXPLODE would print the as- 
sembly name and then EXPLODE each of the constituents. 

It might seem at first that having a program call itself would yield a 
monster which would never stop growing. This could happen, but there 
is no reason for it to happen in this case since the process of having 
EXPLODE call itself within a call to itself within a call to itself... must 


1. 


1. 


PAPER CUTTER 
2. ARM ASSEMBLY 


3. LEG 
4. RUBBER ТІР 
4. NO. 5 SCREW 
3. CUTTING SURFACE 


2. GUIDE 
3. NO. 2 SCREW 
3. RULER 


3. PAPER HOLDER 
2. NO. 2 SCREW 


ARM ASSEMBLY 
2. HANDLE 

2. BLADE 

2. NO. 2 SCREW 


FIGURE 9.23. Indented bills of materials. 
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terminate when we reach a part, for then the calling process stops and 
backs up. For example, in Figure 9.23 when we explode the paper 
cutter we then explode the arm assembly which entails exploding the 
handle. The handle is a simple part so its name is printed and then we 
“back up" to the next constituent of the arm assembly and explode 
it. When we get to the No. 2 screw, and explode it, we again back up 
to the arm assembly. But this has no more constituents so we back up 
to the paper cutter and explode its next constituent, the base. 

Another problem which could come up when a program calls itself 
is that some variable might be given one value in the calling version and 
a different value in the called version. When the called version finishes 
execution and control backs up to the calling version, which value does 
the variable have? Actually, there is no problem if the variable was 
local. For then it is no different from the situation where a different 
program was called. APL saves the value of the variable in the calling 
program, and restores it when control returns from the called program. 

When a program calls itself, we say that it is recursive. There is 
nothing special that we have to do to make a program recursive in APL, 
except that we must make sure that there is a point at which the calls 
stop: in this case they stop when we reach a simple part, and we know 
that we must reach a simple part because of the properties of XNEEDS 
which are verified in CHECKUP. 

Figure 9.24 shows a recursive program named INDENT which will 
produce the indented bill of materials report for an assembly. INDENT 
takes two arguments: LEVEL is the level number to be assigned to the 
part or assembly currently being exploded and UNIT is the number o£ 
that part or assembly. The name will be indented 3XLEVEL spaces 
and preceded by the level number. Line 5 is the control which makes 
the recursion terminate: if the item is a part, exit. Otherwise, in line 7 
we find the constituents of the item and then, in the loop from lines 8 
to 13, each constituent is exploded, one level deeper. It may be useful 
for you to try a hand simulation of the program, keeping track of all 
the variables. 

Notice that the main loop in the program is different from others 
we have seen. Instead of adding to a variable and halting when the vari- 
able reaches a certain value, this loop control statement removes an 
element from a vector each time, stopping when the vector becomes 
empty. 

The program INDENT does not contain any check on the valid- 
ity of its arguments or of the global variables. We would not want to 
check the global variables each time through the program, so long as 
they are checked at least once and not subsequently changed. It is not 
necessary to check the arguments each time since the program will pro- 
duce correct arguments in the call at line 10 if it is given correct argu- 
ments to start with. It is therefore logical to create a program to do the 
first call to INDENT, checking the variables and starting the ball rolling. 


Я LEVEL INDENT UNIT ;NEWAUNIT ;CONSTITUENTS 


11 -RECURSIVE PROGRAM TO PRINT 
[2] a- -INDENTED BILL ОР MATERIALS. CALLED 
[3J я- -FIRST BY STARTAINDENT 


Гај  ((3xLEVEL)p' ');LEVELi'. ',FIND UNIT 
{51 +0 ІР UNITOLSHAPEL21 
16] а------ SO AS NOT TO EXPLODE SIMPLE PARTS 
£7]  CONSTITUENTS«0, (UEEDSU :2] UNIT) /XUEEDO $11 
[8] ACONSTITUENTS:*ENDACONSTITUENTS WHEN 0=pCONSTITUENTS+1 +CONSTITUENTS 
[9] NEWAUNIT+1+COWSTITUENTS 
[10] (LEVEL+1) INDENT WEWAUNIT 
(111 a----- EXPLODING WEWAUNIT ONE LEVEL FURTHER INDENTED 
[12] CONSTITUENTS 
(131 ENDACONSTITUENTS:-«0 
2 


FIGURE 9.24. Producing the indented bill. 
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STARTAINDENT in Figure 9.25 is such a program. Its single argument 
is the major assembly being exploded. After calling CHECKUP, it then 
starts the process going in line 4 by calling INDENT, specifying level 1. 
Once INDENT gets control it begins to explode assemblies and doesn’t 
return to STARTAINDENT until it is done. 


EXERCISES 


9-24. 


9-31. 


9-32. 


Revise CHECKUP so that it will be suitable for the job it needs 
to do in STARTAINDENT. In particular, make sure that the 
messages reflect that the program is being called by STARTA- 
INDENT, and not by TOTALS. 


. Revise STARTAINDENT so that it prints the day on which the 


report is being generated. 


. Revise INDENT so that it also performs the function of TOTALS, 


giving the requirements for each assembly as well as its name. 


. What errors are likely to occur when using recursive programs? 


Can you use ERROR to shield against them? 


. Could TOTALS itself have been written recursively? 1f so, com- 


pare the running times of the two versions. If not, why not? 


. Could INDENT have been written nonrecursively? If so, com- 


pare the running times of the two versions. If not, why not? 


. Write a comprehensive reporting package using the building 


blocks we have already developed. The user should be able to 
ask for any number of different pieces of information, such as: 
the actual number of parts required, the number required when 
the inventory is empty or has some given value, indented bills of 
materials with or without parts requirements, etc. 

How would you do Exercise 9-30 if you had to complete it as 
quickly as possible? How would you do it if you had to take up 
as little workspace as possible? 

Except for recursive programs, a collection of programs is very 
much like a manufactured item. Use the program INDENT to 
prepare an indented bill of materials showing which programs 
in this chapter are called by which others (but exclude INDENT). 
INDENT is а special case since CHECKUP would reject XNEEDS 
if it showed INDENT as a constituent of INDENT. Redesign the 
system of programs so that we can include INDENT in the bill 
of materials (often called a hierarchy chart). We need only show 
INDENT as a constituent of itself once to establish that it is re- 
cursive, so the chart should show it only twice, and not as a con- 
stituent of itself which in turn is a constituent of itself which. . . 


V STARTAINDENT UNIT 
t1] 8----- PRODUCES INDENTED BILL ОР MATERIALS 
[21 A- --BY CALLING INDENT 
ЇЗ] СНЕСКИР UNIT 
[I4] 1 INDENT UNIT 
v 


FIGURE 9.25. Starting the recursion. 
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9-33. 


The scientist Leonard of Pisa, also called Fibonacci, studied the 
the breeding of rabbits in the thirteenth century. As an approxi- 
mation he made the following simplifying assumptions: (a) rabbits 
never die; (b) one pair of rabbits (of opposite sex) produces as 
offspring a single pair consisting of a male and a female; (c) start- 
ing from the time that they are one month old, a pair of rabbits 
can produce a new pair at the end of every month. The result of 
the study is that if you start with a single newborn pair of rabbits, 
at the end of both the first and second months that is all you 
have. But then, after the third month you will have two pair, 
then three, then five, then eight, and so on. If f, is the number 
of pairs of rabbits after n months, then f,=f,=1, and for n>2, 
f,=f,—itf,—2. Write both recursive and nonrecursive programs 
for finding the value of f, and compare both their running times 
and the amount of workspace they require. (Note: when a recur- 
sive program is running it requires much more room than other- 
wise, because of all the versions of the program that APL must 
remember. One way to evaluate the amount of room required is 
to print out the amount of space remaining each time you enter 
the program. Another is to see just how big a vector you can 
leave sitting in the workspace when the program is running.) 


- What is DEPTH ERROR? Write a program which generates one. 


Devise a means of protecting against them. 


. With a very large bill of materials, having many levels, it might be 


necessary to indent more than the actual width of the page. Can 
you correct for this in some way inside the program? Can you 
correct it by changing the specifications (i.e., the definition of 
an indented bill of materials)? This is the final problem of the 
chapter; is it also the final problem in the program? How do you 
know? 
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“It is this, it is this that oppresses my soul, 
When ! think of my uncle's last words: 

And my heart is like nothing so much as a bowl 
Brimming over with quivering curds! 


“It is this, it is this—’’ "We have had that before!” 
The Bellman indignantly said. 

And the Baker replied, “Let me say it once more. 
It is this, it is this that | dread! 


“| engage with the Snark—every night after dark— 
In a dreamy delirious fight: 

| serve it with greens in those shadowy scenes 
And | use it for striking a light; 


"But if ever | meet with a Boojum, that day, 
In a moment (of this | am sure), 

I shall softly and silently vanish away— 
And the notion | cannot endure!” 
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There is still more to programming than we have been able to cover. In 
this last chapter we try to present some directions for further study. We 
have concentrated mostly on programming itself, and will continue to 
do so. There is, however, a great deal to be learned about the things 
that get programmed as well. For almost any task or algorithm that you 
want to program there have been many people who studied and wrote 
about problems which were similar enough to be helpful to you. A 
good example of this is sorting. The bubble sort algorithm which we 
looked at in Chapter 6 is relatively easy to program and is therefore 
efficient of programmer time. However, it requires many comparisons 
and is inefficient of machine time. In many applications it is important 
to sort large amounts of data quickly and many algorithms have been 
devised which are faster than the bubble sort. There are many sources 
which discuss and compare algorithms of various types: the most com- 
plete is probably the seven volume series The Art of Computer Pro- 
gramming by Donald E. Knuth (Addison-Wesley) an excellent, although 
difficult, study of many different types of algorithms, including tech- 
niques for programming them. 


APL 


APL is an extremely powerful language. This power stems from a 
number of factors: the fact that it is terminal-oriented, the simplicity 
of the system commands, the fact that it can be used in calculator 
mode and the variety of its operators. We have deliberately underem- 
phasized the operators, for this reason: anything which can be done 
with a combination of operators can also be done as a program with 
decisions and repetitions. As you learn more about APL you will be 
more and more able to replace many lines of program with single APL 
expressions, but there will always be cases where the operators them- 
selves will not suffice and you will have to fall back on making explicit 
choices and on looping. 

Now that you can write programs though, if you intend to make 
much use of APL you should develop more facility with the operators. 
The experimental approach in Chapter 3 will still prove to be a useful 
one: try to make up tasks for yourself to do using certain operators, 
and then try to do them. This is the equivalent of the typical assign- 
ment in a language course, "make up a sentence using each of these 
words." It may prove to be just as painful at first, but really will result 
in an expanded working vocabulary. 

Another good way to learn the language is to read in it. Find exam- 
ples of APL programs and try to understand what they do. If you use 
а source like the public libraries there will be many programs of varying 
quality. If you read them closely you will certainly find a number of 
bad practices (such as branching to absolute line numbers) and should 
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not be surprised, during your careful reading, to find that many of the 
programs will fail to work properly in certain situations. However, in 
most of these cases the errors will probably not be in the use of opera- 
tors (which you are trying to learn) but in tying the program logic 
together (which you already know how to do). These errors should not 
deter you and may in fact, prove to be instructive in themselves. Read- 
ing programs will prove to be one of the best ways there is to learn pro- 
gramming. 

It can be very useful to have a "pocket dictionary" when learning 
new operators. There is probably a reference manual which goes along 
with your system, and if you don't already have a copy you should get 
one. However, the reference manual may not be even approximately 
pocket size; in this case, you will probably find the APL/360 Reference 
Manual by Sandra Pakin (Chicago: Science Research Associates, Inc., 
1972) to be a valuable reference, even if your system if not exactly like 
APL/360 (one of the APL systems supplied by IBM). 


OTHER LANGUAGES 


Since APL is very much different from most of the other commonly 
available programming languages it seems fair to devote a few minutes 
to them. Most of the other languages are based on an “English-like” 
format. A program is built up of statements which are similar to English 
in having “nouns” and “verbs.” This analogy should not be pushed too 
far, but it is useful in comparison with APL. APL also has “nouns” and 
“verbs,” but does not have the same concept of a statement. In APL 
you can put together as many “verbs” and “nouns” (operators and 
data structures) as you can fit on one line, or fewer if you so desire. 
The other languages have, for the most part, rather fixed formats: there 
are statement forms in which you can insert variable names or expres- 
sions. One typical example of this is the statement 


DO I = 1 TO 10; 


This is a statement which forms the control for a loop, and says that 
the statements which make up the loop will be performed ten times, 
with the variable I getting the values 1,2,...,10 in succession. The words 
DO and TO and the equal sign are fixed in place; any variable name can 
appear where the I is, and any variable name, number or expression can 
replace the 1 or the 10. 

Instead of the wealth of operators that APL gives us, these other 
languages provide control structures. There are specific statement forms 
for looping and for decisions. They have the advantage of making it 
easier to learn all about the language, and of restricting the number of 
substantially different ways that things can be done. Іп fact, the forms 
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we used for process boxes in our structure charts were in part motivated 
by the statement forms of some of these languages. 

Тһе three most common languages in the United States (especial- 
ly in university computing environments) are probably FORTRAN, 
COBOL and PL/I. Each of these comes in many slightly different dia- 
lects. There are also some languages, like Algol, which are more popular 
in other countries. If you have the chance to learn a new language, and 
if you have a choice as to which one, we recommend PL/I. PL/I is, in its 
own way, a rich and complex language; probably you will never learn 
more than a fraction of what it offers, but having learned that you will 
have tremendous computing power available to you and you should find 
it easy to learn any of the other languages at some future time. 

One dialect of PL/I that we recommend if you can find it is PL/C. 
This is a student-oriented version which omits some of the more com- 
plicated features but which provides special aids for finding and detect- 
ing bugs. Even if PL/C is not available to you, you will probably find 
either of these two books helpful as you learn PL/I (possibly in con- 
nection with a "straight PL/I” book if you aren't working on PL/C): 


R. Conway and D. Gries, An Introduction to Programming: A 
Structured Approach Using PL/I and PL/C (Cambridge, Mass.: Win- 
throp Publishers, 1973). 

G. Weinberg, N. Yasukawa, R. Marcus, Structured Programming in 
PL/C: An Abecedarian (New York: John Wiley and Sons, 1973). 


STRUCTURED PROGRAMMING 


Perhaps, in closing, we should mention something about the mysterious 
phrase "structured programming," which appears in the title, but no- 
where else. At the time this book is being written there is still some 
controversy about exactly what structured programming is. But there 
is no disagreement about the fact that it is valuable. 

We prefer to think of it as an attitude, rather than a collection of 
techniques: according to one of the leaders in the field, structured pro- 
gramming is common sense programming. Programming is different 
from most other human endeavors in that we can never really escape 
the fine details. Most things that we do which, like programming, in- 
volve building large structures from small ones allow us at some point 
to leave the details of the small structures behind forever. This may be 
because of the nature of the tasks or because we know how to do them 
better. But with programming it seems that we cannot simply progress 
from the small to the large. It is very common for a programmer to 
return to a program that was written a month (or a day) previously and 
to find it a mystery: "Let's see, what does that variable represent? And 
how did 1 get to this part of the program? And when does this loop 
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terminate? Wow! I must have been half asleep when I wrote this—1 don’t 
remember anything.” 

Programmers have often tended to program as though, once they 
wrote down a piece of code, they would be done with it. This, however, 
is simply not the way it has usually worked out. When engineers build 
a bridge they can usually build a stanchion and then, with confidence, 
decide that it is done and will support the necessary loads, and then 
forget it. Programmers have no books of tables or formulae to tell them 
when a routine is done and will do what it is supposed to do. Even worse, 
the programmer's customer (who may be the programmer) has a ten- 
dency to change the requirements in drastic ways—not unlike deciding 
that a half-finished bridge should be made over into a tunnel. 

Structured programming is the general name which is being used 
for all the techniques which programmers are compiling to make pro- 
gramming easier and, at the same time, more reliable. One large part of 
structured programming is writing programs from structure charts: not 
everyone uses these charts, but most programmers are now using the 
basic constructs—sequence, looping, and choice—to build their programs. 
Another important principle which is associated with structured pro- 
gramming is that we should write small programs, using subroutines as 
needed, rather than very large programs. 

We have tried to suggest that about 25 lines is a reasonable length for 
an APL program. It may (we hope) seem obvious to you, but the fact 
that as programs get larger the effects of errors can propagate further 
and further from their source and be harder and harder to find, is still 
a revelation to some programmers. Programs which get very large have 
other undesirable effects as well. When you make a change in a program 
you should certainly get a new listing to refer to and to protect you 
against loss due to system failure. It is reasonable to list a 15-25 line 
program many times in one session at the terminal, but a 100 line pro- 
gram is likely to never be listed at all, so that the more work that you 
put into it, the less the actual program corresponds to your last listing. 

A measure of the newness of the whole programming business is 
that there is still controversy over whether to use names (for variables 
and labels and programs) that are meaningful or meaningless. One side 
argues that meaningless names, such as XXX or XBGY, make programs 
impossibly difficult to read; the other points out that calling a variable 
LASTBLANK may make it clear that it was intended to represent the 
last blank, or its location, but that this does not mean that it actually 
does represent the last blank; calling a variable ZERO does not mean 
that its value must be 0. In fact, an entire draft of this book was written 
in which the variable names were all meaningless; on retrospect we found 
it wiser to use names that were not only meaningful, but also relevant 
to the problem (CURRENT instead of INDEX as the name for a loop 
index in Chapter 6, for example), and to strive to use names that did 
not mislead the reader of the program. 
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Basically, structured programming comprises both a number of 
common sense principles, many of which were not common sense until 
someone's flash of insight pointed them out to us, and also new tech- 
niques which are just beginning to be articulated to help insure the re- 
liability of programs. 

In this book we have not tried to teach you about structured pro- 
gramming. We have settled for presenting examples of well-structured 
programs. We did not tell you what not to do, because the reasons for 
not doing it are not always clear until one has had experience with pro- 
gramming, and to do so would have taken us far off our track. It can be 
very useful to see examples of practices which can cause trouble, and of 
alternatives which avoid it: an excellent (and inexpensive!) collection of 
bad and good programming examples is The Elements of Programming 
Style by Brian W. Kernighan and P. J. Plauger (New York: McGraw-Hill, 
1974). 

If all of structured programming were to be summarized in one 
word, it might well be design. While one can, of course, design poorly, 
or design well but then not follow that design, one of the main prob- 
lems in programming has always been confusing the algorithm with the 
program. In APL, for example, we have had to create special forms be- 
cause the language did not provide us with built in analogues of the rep- 
etition and choice process blocks of the structure chart. But by proceed- 
ing from the structure chart (the design) to the program we were able 
io create programs which clearly represented the algorithms; simply 
separating the phase of struggling with the idiosyncrasies of APL from 
the phase of struggling with the idiosyncrasies of the problem made our 
task significantly easier. 

Therefore, design. 1% will help reduce the complexity of the pro- 
gramming process, so that you can write correct programs with less total 
effort. It also serves as a good description of the program: once you 
have written a correct program you may need to be concerned about 
other factors, such as making it run faster or squeezing it into less work- 
space. Or, it may be necessary to make changes to the program after it 
is written. In any of these activities, a good design serves as a good road 
map, helping you see what places need to be changed and what other 
places will be affected. In architecture or engineering the first step is 
always the careful preparation of a design, usually based on previous 
design sketches. Programming is an equally complex and important 
intellectual activity, and deserves the same sort of careful systematic 
approach. 
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The error messages on the following pages are grouped according to 
their most probable cause. The list below is an alphabetized cross refer- 
ence to their order in the following pages. 


ALREADY SIGNED OW L 
CHARACTER 28 
DEFN 25 
DEPTH 26 
DOMAIN 21 
IMPROPER LIBRARY REFERENCE 12, 14 
INCORRECT SIGN ON 2 
INDEX 22 
LENGTH 23 
MESSAGE LOST 15 
NONSE 31 
NOT ERASED: NAMES 17 
МОТ GROUPED, NAME IN USE 18 
NOT SAVED, THIS IS WSID 11 
NOT SAVED, WS QUOTA USED UP 10 
NOT WITH OPEN DEFINITION 13 


NUMBER IN USE 
NUMBER LOCKED OUT 
NUMBER МОТ IN SYSTEM 
OBJECT NOT FOUND 


RANK 24 
SI DAMAGE 16, 27 
SYMBOL TABLE FULL 29 
SYNTAX 19 
SYSTEM 30 
VALUE 20 
WS FULL 9 
WS LOCKED 


WS NOT FOUND 7 
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ERRORS ASSOCIATED WITH SYSTEM COMMANDS 


Signing On 


ALREADY SIGNED ON 


INCORRECT SIGN ON 


NUMBER ІП USE 


NUMBER NOT IN SYSTEM 


NUMBER LOCKED OUT 


Load or Copy 


OBJECT NOT FOUND 


WS NOT FOUND 


WS LOCKED 


WS FULL 


Someone is using this terminal. 
If it isn't you, and you need 
the terminal, try to find the 
user. If that is impossible, sign 
off with )CONTINUE HOLD. 
You probably made a mistake 
in the form of the command, 
although if you just turned the 
terminal on the computer may 
have rejected a perfectly cor- 
rect sign on. Try again. 
Someone else is using this num- 
ber. The operator can find out 
who really owns the number 
and where the other user is. 
Either the number really isn't 
in the system or the number 
has a lock on it and the wrong 
lock was used. 

Someone with the power to 
do so has told the computer 
not to accept this number. 
Find out who, and why. 


The indicated workspace does 
not contain the particular ob- 
ject requested. 

The workspace requested could 
not be found. 

The requested workspace has a 
lock which was not given cor- 
rectly. 

The active workspace was filled 
by the material being copied 
before the copy could be com- 
pleted. Note: A partially cop- 
ied function may put the work- 
space into definition mode. 
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10 NOT SAVED, WS QUOTA USED UP 


11 NOT SAVED, THIS IS WSID 


12 IMPROPER LIBRARY REFERENCE 


Other Activities 


13 NOT WITH OPEN DEFINITION 


14 IMPROPER LIBRARY REFERENCE 


15 MESSAGE LOST 


You have already saved as 
many different workspaces as 
you are allowed. You can put 
this one into CONTINUE or 
iry to incorporate it into one 
of your other workspaces, un- 
til you can get your quota in- 
creased. 

The active workspace has a 
name which precludes its being 
saved. It might be unnamed, 
or you might have loaded a 
public library workspace into 
it, so that it has a name which 
cannot appear in your library, 
or you might have used the 
form of the SAVE command 
where you gave the name of 
the workspace explicitly and 
the name you gave didn't 
match the actual name. 
Attempt to save a workspace 
whose name indicates that it 
came from a public library or 
the library of another user. 
Use WSID command to change 
the name. 


You are in definition mode and 
tried to do something which 
can't be done then. Close defi- 
nition mode and try again. 
You tried to SAVE, DROP or 
LIB for some library belonging 
to another user or the public 
libraries. 

You were sending a message, 
but signaled attention before 
the message could be delivered. 
Try again and wait for the sig- 
nal SENT. 


16 


17 


18 


19 


20 


21 


22 


28 


24 


95 


SI DAMAGE 


NOT ERASED: NAMES 


NOT GROUPED, NAME IN USE 
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А function which is pending 
has been erased or copied. 
Clear the state indicator. 

Тһе items listed could not be 
erased; probably, they are 
functions which are either 
pending or in definition mode. 
Тһе name you tried to use was 
not legal as a group name be- 
cause it was already being used 
for a function or variable, 
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Grammatical 


SYNTAX 


VALUE 


DOMAIN 
INDEX 
LENGTH 


RANK 


Functions 


DEFN 


Incorrectly formed expression: 
likely possibility is that a name 
is being used with too many or 
too few arguments. 

А value has not been assigned 
to a variable or is not being re- 
turned from a function invo- 
cation. 

An operator is being used with 
invalid arguments. 

Attempt to find nonexistent 
element of a vector or array, 
Attempt to combine arrays or 
vectors which are not conform- 
able. 

Something about the structure 
of a data item precludes its be- 
ing used in this context. 


Improper attempt to define or 
edit a function (name may al- 
ready be in use,improper num- 
ber of arguments, function is 
pending) or use of del in unex- 
pected context. Note: Once a 
function has been created, to 
enter definition mode give 
only the name after the del, 
not all of line 0. 
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27 
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DEPTH 


SI DAMAGE 


CHARACTER 
SYMBOL TABLE FULL 


SYSTEM 


NONSE 


Other Errors 


Too many levels of a function 
calling a function calling a 
function... Try to clear state 
indicator. 

A function which is pending 
has had its header line or a line 
with a label on it changed, or 
has been erased or copied. Can 
also occur when a function 
which is pending but not at 
the top of the SI list is changed 
in any way. 


Improper overstruck character. 
There are too many different 
names in this workspace. The 
problem can be corrected with 
the SYMBOLS command. 

An error that APL couldn't 
handle. Some mysterious num- 
bers will be printed and the 
workspace will be cleared. 
Bring all of this to the com- 
puter center APL staff. 

Short for nonsense, APL's 
catchall when it knows some- 
thing is wrong, but doesn't 
know what. 
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Тһе various commands are grouped Бу function. The list below is ап 
alphabetical cross reference to their order in the following pages. 


)CLEAR 15 
)CONTINUE 2 
)CONTINUE HOLD 8 
)COPY 6,7 
)DIGITS 16 
)DROP 11 
)ERASE 8 
)FNS 23 
)GROUP 17,18 
)GRP 24 
)GRPS 25 
)LIB 30, 31 
)L0AD 12 
)MSG 32 
)MSGN 83 
)NUMBER (signing on) 

)OFF 4 
)OFF HOLD 

)OPR 34 
)OPRN 35 
)ORIGIN I 19 
)PCOPY 9,10 
)PORTS 36 
)SAVE 13,14 
)SI 26 
)SIV 27 
)SYMBOL 20 
)VARS 28 
)WIDTH 21 


)WSID 22, 29 


10 


11 
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Items in brackets are optional. When a range is shown, as )DIGITS 1-16, 
any integer in the indicated range may be used: DIGITS may be set to any of the 
values 1, 2, ..., 16. 


GETTING ON AND OFF 


JNUMBER[:LOCK] 
)CONTINUE 


)CONTINUE HOLD 
)OFF[:LOCK] 


)OFF HOLD [:LOCK] 


Sign on. 

Ends the session and stores the 
active workspace in CONTIN- 
UE. 

Same as CONTINUE, but holds 
the phone connection. 

Ends the session. If lock is 
given, it replaces previous lock. 
Same as OFF, but holds the 
phone connection. 


GETTING THINGS IN AND OUT OF A WORKSPACE 


)COPY WSID[:LOCK] 


)COPY WSID[:LOCK] NAME 


)ERASE NAME(S) 


)PCOPY WSID[:LOCK] 


)PCOPY WSID[:DOCK] NAME 


Copies all objects from work- 
space WSID to your active 
workspace. 

Copies object NAME from 
workspace WSID to your active 
workspace. 

Erases all named objects from 
your active workspace. 

Same as COPY, but will not 
copy from WSID an object 
with the same name as an ob- 
ject already in your active 
workspace. 

Asks that object NAME be 
copied from workspace WSID 
if there is no object in your 
active workspace also named 
NAME, 


MOVING WORKSPACES 


)DROP WSID 


Deletes the saved workspace 
WSID. Has no effect on active 
workspace. 
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12 


13 


14 


15 


16 


17 


18 


19 
20 


21 


22 


28 


24 
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)LOAD WSID[:LOCK] 


)8AVE 


)SAVE WSID[:LOCK] 


AFFECTING THE CONTENTS OF 


)CLEAR 


)DIGITS 1-16 


)GROUP NAME LIST 


)GROUP NAME 


JORIGIN 0-1 


)SYMBOL NUMBER 


)WIDTH 30-130 


)WSTD NAME 


Replaces the active workspace 
by a copy of the stored work- 
space WSID. 

Active workspace replaces 
stored workspace with same 
name. 

Saves the active workspace un- 
der the name WSID. 


A WORKSPACE 


Replaces active workspace with 
clear workspace. 

Sets the number of digits which 
APL will display when it prints 
numbers. 

All the objects in LIST are 
grouped under the name 
NAME. 

Removes the group association 
from the objects which formed 
group NAME. 

Sets the index ORIGIN to the 
value given. 

Sets the size of the symbol 
table: this has a direct effect 
on the total number of dif- 
ferent names which you can 
have in your workspace. 

Sets the width of the maxi- 
mum length line which APL 
will print. 

Gives a name to the active 
workspace. 


FINDING OUT ABOUT THE CONTENTS OF A WORKSPACE 


)FNS [LETTER] 


)GRP NAME 


Lists all the program (func- 
tion) names in the active work- 
space in alphabetical order [be- 
ginning with those whose first. 
letter is LETTER]. 

Lists objects belonging to 
group NAME. 


25 


26 


27 


28 


29 


80 


81 


82 


33 
34 
35 


36 


)GRPS[LETTER] 


)SI 


)SIV 


)VARS [LETTER] 


)NSID 


)LIB 


)LIB NUMBER 


)MSG PORT TEXT 


)MSGN PORT TEXT 
)0PR TEXT 
)OPRN TEXT 


)PORTS 


MISCELLANEOUS 
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Lists names of all groups [be- 
ginning with those whose first 
letter is LETTER]. 

Displays the state indicator, the 
list of pending functions. 
Same as )SI, but for each func- 
tion listed shows the names of 
all its loca) variables. 

Lists all the variables in the 
active workspace [beginning 
with those whose first letter is 
LETTER]. 

Gives the name of the active 
workspace. 


Lists names of all stored work- 
spaces. 

Lists names of all stored work- 
spaces in designated public li- 
brary. 

Sends the message TEXT to 
port (terminal) indicated: your 
keyboard locks up until re- 
sponse comes. 

Same as MSG except that your 
keyboard does not lock. 

Like MSG except that message 
is sent to APL operator. 

Like MSGN except that mes- 
sage is sent to APL operator. 
Lists port (terminal) numbers 
and some identification of user 
signed on at each (this may be 
first three letters of last name, 
for example). 
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This is a fairly, but not absolutely, complete dictionary of the operators: 
likea dictionary it cross-references other entries and uses examples when 
they are clearer than definitions. Some of the operators can be extreme- 
ly complex: in such cases the full abilities are not discussed completely, 
only hinted at. Two important terms are redefined below, as are the three 
operators on operators: reduction, inner product, and outer product. 
The headings under the name of each operator give a summary of the 
operators’ important characteristics. First, whether the operator is scalar 
or mixed. Second, whether it is dyadic or monadic. Third, what types 
of arguments it allows, such as numeric, character, integer, or any: an 
entry such as “іпберег/апу” indicates that the left argument must be in- 
teger, but the right argument is unrestricted. 


ORIGIN АП indexing operations, including subscripting and use of the 
operator iota, deal with integers; the indices always begin at the 
origin and increase in steps of 1. The origin can be set to be 1 or 0 
(the default value is 1) and its value affects the results of a number 
of operators, as indicated in the definitions. 


COORDINATES Any data structure with dimension greater than 1 has 
many coordinates—as many as its dimension. A matrix has two 
coordinates: the rows and the columns. More specifically, the com- 
ponents of the first coordinate are the rows and the components 
of the last coordinate are the columns. In higher dimensional ar- 
rays, the last coordinate still references columns, but the first co- 
ordinate will not be the rows. A number of operation on arrays 
normally are defined in terms of their action on the last coordi- 
nate, but may be modified by insertion of [K] after the operator 
sign to act on the Kth coordinate instead. 


COMBINATIONS OF PRIMITIVE OPERATORS 
Let F and G represent two primitive operators. 


REDUCTION IÍ V is a vector, (F/V) has the same value as V[1] FV [2] 
FV[3]F...FV[oV]. For V a higher dimensional array, action is 
along the last coordinate (i.e., on entire columns) unless specified 
otherwise. 


INNER PRODUCT For А and B vectors, AF*GB is F/AGB. When the 
arguments have higher dimension, elements of the result are 
formed by combining components of each argument: for example, 
if A and B are both dimension 2, an element of the result is the 
inner product of a row of A with a column of B. 


OUTER PRODUCT Ао. FB is formed by applying F to each component 
of A on the left and each component of B on the right. Its dimen- 
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sion is always the sum of the dimensions of А and B. For example, 
if F is multiplication, the results gives each component of A mul- 
tiplied with each component of B; when A and B are vectors, 
"component" means element, but as the dimensions grow a com- 
ponent is one of the entities determined by a coordinate (as the 
last coordinate determines the columns). 
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SCALAR OPERATORS 


+ 


ADDITION, SUM 
Scalar, dyadic, numeric 
Does just what you think. 


IDENTITY 
Scalar, monadic, numeric 
Has no effect on its argument. 


SUBTRACTION NEGATION 
Scalar, dyadic, numeric Scalar, monadic, numeric 
No surprises. Examples: 
=S 
75 
-73 
3 
x x 
MULTIPLICATION SIGNUM 


Scalar, dyadic, numeric 
Does multiplication. 


Scalar, monadic, numeric 
Yields ^1, 0 or 1 depending 
on whether the argument is 
negative, zero or positive. 


DIVISION 
Scalar, dyadic, numeric 
А-В is A divided by B. 


RECIPROCAL 
Scalar, monadic, numeric 
(+B) is the same as (1*B). 


(0+0) is 1. The argument cannot be 0. 
Any other division by 0 
is an error. 
— 
L (D) L (D) 
MINIMUM FLOOR 


Scalar, dyadic, numeric 
Yields the smaller of 


its arguments: 
315 
3 
ціц 
m 


Scalar, monadic, numeric 
Yields the largest integer 
which is less than or equal 
to the argument: 

16.3 
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Г (5) 


MAXIMUM 
Scalar, dyadic, numeric 
Yields the larger of its 


arguments: 
ЗГ5 
5 
apu 
4 


Г (3) 


CEILING 
Scalar, monadic, numeric 
Yields the smallest integer 
which is greater than or 
equal to the argument: 
[6.3 


l (M) 


MODULUS, RESIDUE 
Scalar, dyadic, numeric 
(AJB) is the smallest num- 
ber r between 0 and A-1 
such that (B-r) is an integer 
multiple of A. If A is 0, B 
must be nonnegative, and 
the result is B: 
315 
2 
2.61|6.6 
1.4 


І (м) 


ABSOLUTE VALUE 
Scalar, monadic, numeric 
(IB) is the same as (ВГ-В): 
13.3 


[74 


: (. K) 


COMBINATION, CHOOSE 
Scalar, dyadic, numeric 
(A!B) is the number 
of combinations of B 
things taken A at a time, 
when A and B are integers. 
In all cases, the same as: 
(1B) ((1A)x (В-А)) 


H (. K) 


FACTORIAL 

Scalar, monadic, numeric 
(1B) is Bx(B-1)x...x2x1 
if B is a positive integer, 1 
when B is 0, and an error if 
B is a negative integer. For 
any other values of B the 
result is the value of a 
mathematical function 
called the gamma function. 


Note: Dyadic ? is a mixed 
operator. 
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? (Q) 


ROLL, RANDOM 

Scalar, monadic, numeric 
For a positive integer B, 
the result of (?В) isa 
randomly selected element 
of the vector 1B: 


25 
3 
?5 
2 
e (7) 
NOT, TILDE 


Scalar, monadic, logical 
Logical negation: 


“о 
1 
up 
0 
ж (P) * (P) 
EXPONENTIATION EXPONENTIAL 


Scalar, dyadic, numeric 
Just what you think of 
by exponentiation: 


3*2 
9 

2*3 
8 
Except 

0x0 
1 


And, for (A *B) to be 
defined: If A is 0, B is 
nonnegative; if A is nega- 
tive, B must be the quotient 
of an integer and an odd 
integer. 


Scalar, monadic, numeric 
(х В) is the same as (е *B) 
where e is the mathe- 
matical constant whose 
value is approximately 
2.7182818285. 
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e (0,P) 


LOGARITHM 

Scalar, dyadic, positive 
(АФВ) is the logarithm of B 
to the base A, equal to 
((€B)*A). А and B are both 
positive and A cannot be 1 
unless B is also 1. 


e (0,P) 


NATURAL LOGARITHM 

Scalar, monadic, positive 
(eB) is the logarithm of 
B to the base e, where е 
is approximately 


21182818285. B must be 


positive. 


o (0) 


CIRCULAR 

Scalar, dyadic, integer/numeric 
(AoB) is one of 15 func- 
tions of B, as determined 
by А. For certain non- 
positive values of A there 
are restrictions on B, as 


shown: 

FUNCTION A A 

0 
sine 1 wi 
cosine 2 72 
tangent 3 73 
{1+В*2)*.5 4 -4 
sinh 5 75 
cosh 6 76 
tanh 1 M; 


o (0) 


РІ TIMES 

Scalar, monadic, numeric 
Multiplies its argument 
by Pi, approximately 


3.14159265. 
FUNCTION NOTES 
(1-В х2) *.5 В<1 
arc sine 12 |B 
arc совіпе 1> В 
arc tangent 
(714Bx2)*.5 1< В 
arc sinh. 
arc cosh B21 
are tanh 1> В 


Note: Тһе functions ending іп В (sinh, arc tanh, etc.) аге the һурет- 
bolic trigonometric functions and their inverses. 


> (7) 
GREATER ТНАМ 
Scalar, dyadic, numeric 
(A» B) is 1 if A is greater 
than B, 0 otherwise. 


2 (6) 
GREATER ТНАМ OR EQUAL ТО 
Scalar, dyadic, numeric 
(А >В) is 1 if A is greater than 
or equal to B, 0 otherwise. 


E (s) 
LESS THAN OR EQUAL TO 
Scalar, dyadic, numeric 
(А <В) is 1 if A is less than or 
equal to B, 0 otherwise. 


« (3) 
LESS THAN 
Scalar, dyadic, numeric 
(A«B) is 1 if A is less than B, 
0 otherwise. 


3 (5) 
EQUAL TO 
Scalar, dyadic, any 
(А-В) is 1 if A equals B, 0 
otherwise. 


z (8) 


NOT EQUAL TO 

Scalar, dyadic, any 
(A#B) is 1 if A is not equal 
to B, and 0 if A is equal to B. 


^ (0) 


AND 
Scalar, dyadic, logical 
(A^B) is defined by the table: 
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v (9) 


OR 
Scalar, dyadic, logical 
(AvB) is defined by the table: 


A 

0 1 

0 0 1 

B 1 1 1 
^ (0,7) 


NAND 
Scalar, dyadic, logical 
(A*B) is defined by the table: 


A 

001 
011771 
BSI 1 0 


м (9,7) 
NOR 


Scalar, dyadic, logical 
(A¥B) is defined by the table: 


A 
0 1 
0 1 0 
Pilo o 
MIXED OPERATORS 
о (R) р (R) 
RESHAPE SIZE, SHAPE 


Mixed, dyadic, integer/any 
(ApB) is a structure with size 
A made up of the elements 
of B; A is a vector (possibly 


empty) of nonnegative 
integers. 


Mixed, monadic, any 
Yields the vector giving 
the size of its argument. 
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1 (Г) 1 (Т) 

INDEX INDEX GENERATOR 
Mixed, dyadic, any/any Mixed, monadic, integer 

(A1B) has size (oB). А must (1 B) is a vector of В suc- 

be a vector. Each element cessive integers, starting 

of the result is the location with the origin: 

of the first occurrence in 13 [1 origin] 

А of the corresponding 123 

element of B. “Моп- 15 [0 origin] 

occurrence" is indicated by 012834 


the value 1%(р A): 

(9 17 15)1(2,3)р9 17 11 15 6 28 
1285 
344 


Note: In 0 origin the result 
would have been: 

013 

233 
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$ (0,M) $ (0,М) 
ROTATION REVERSAL 
Mixed, dyadic, integer/any Mixed, monadic, any 
(АФВ) is like B except that (ФВ) has the same shape as 
the elements (for B a vector) B. The elements (for B a 
or columns (for B an array) vector) or columns (for B 
are rotated A *'steps": to the an array) are reversed: 
left if A is positive, to the O'KRANS' 
right if A is negative. If B is SNARK 
an array, A may be a scalar ф(2,3)р1 23 4 5 6 
or may have dimension one 27251 
less than B. If A is not a 65% 
кой іе eee | Note: Ош рей KB io 
Mx Я Я reverse along the Kth соогді- 
columns within a given row: š $ 
nate; see coordinates. 


3$1 234567 
456712 3 

736' CORNPOP' 
POPCORN 

(2 73)$(2,4)p'PSLI' 
LIPS 
SLIP 
Note: We can also specify 
АФ(КІВ to rotate along 


the Kth coordinate; see 
coordinates. 
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t (Y) 


TAKE 

Mixed, dyadic, integer/any 
(AtB) specifies a structure 
which is made up of some 
elements of B. If A is a scalar, 
B is a vector; if A is a vector 
its size must be equal to the 
dimension of B. Each element 
of А corresponds to a coordi- 
nate of B and specifies the 
number of components of B 
to be taken from the front 
(A> 0) or back (Ax 0). Should 
there not be sufficient com- 
ponents in a coordinate of B, 
zeros (for B numeric) or 
blanks (for В character) are 


added: 
34423456 
И 953 
721'123u56' 
56 


74123456 
1234560 
77818123456! 
6123456 
(2 3)4€3,4)0112 
123 
5 6 7 


(72 72)+(3,%)р112 


11 12 


* (U) 


DROP 
Mixed, dyadic, mteger/any 
Similar to take except that 
the left argument specifies a 
number of components to be 
dropped: 
34123456 
4 5 6 
“24123456 
+ 2 Se E 
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> 


CONCATENATION, 

LAMINATION 

Mixed, dyadic, any/any 
(A,B) is formed by “attach- 
ing” B to A. If neither A nor 
B has dimension greater than 
1 the result is a vector where 
the elements of A precede 
those of В. In general, the 
form (A,[K}B) specifies that 
A and B are to be joined along 
the Kth coordinate. For A and 
B to be conformable their di- 
mensions must not differ by 
more than one, unless one is 
ascalar. If the dimensions 
are not equal, the one with 
the smaller dimension is 
restructured to be like the 
other, with a unit Kth coor- 
dinate. K can also be non- 
integer. The result is then a 
structure whose dimension 
is one greater than the larger 
of the dimensions of the 
arguments. The extra dimen- 
sion is the ([ K)th. It has two 
possible indices—the first gives 
A and the second gives B: 


RAVEL 

Mixed, monadic, any 
Produces a vector with the 
same elements as the argu- 
ment. 
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CONCATENATION (continued) 


(12 3)„( 5 6) 
123456 
5,(2,2)рач 
512 
53u 
5,L11(2,2)014 
55 
12 
# 
((2,3)p'BIGBOY'),(2,3)p'TOPCAT' 
ВІСТОР 
ВОҮСАТ 
((2,3)p' BIGBOY'),[.5]o ' TOPCAT'! 
BIG 
BOY 
TOP 
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q (0,/) & (0,/) 


DYADIC TRANSPOSE MONADIC TRANSPOSE 
Mixed, dyadic, integer/any Mixed, monadic, any 


(A&B) can function in two 
different ways. A may 
specify a permutation of 
coordinates of B: 

2 1 Q(2,2)p'HBOO'! 
HO 
BO 


Or А may specify that a 
structure of dimension lower 
than B is to be formed. Co- 
ordinates of the result are 
formed from elements of B 
for which certain specified 
coordinate indices are equal 
(such coordinates are specified 
by having the corresponding 
elements оҒ А be equal): 

1 18(3,3)р19 
$; 5:9 


Note: In either case the size 
oÍ A must be equal to the 
dimension of B. 


For a matrix B, (&B) 

interchanges rows and 

columns of B: 
8(2,u)p18 


For an array of dimension 
greater than 2, the last two 
coordinates are transposed. 


l 


COMPRESS 
Mixed, dyadic, logical/any 
(A/B) selects from B those 
components that correspond 
to unit elements of A: 
011041 0 0/'CAPULET' 
APL 


With array right arguments 
compression usually acts to 
select whole columns: 

1 0 0/(3,3)p19 
1 
m 
7 


However, different coordinates 
can be specified; see coordinates. 

1 0 0/[13(3.3)019 
123 


EXPAND 
Mixed, dyadic, logical/any 
The right argument is expanded 
by inserting zeros (for numeric 
data) or blanks (for character 
data) in places corresponding 
to zeros on the left: 
120.19 ЛА ОВА 
0 SAY 
001 0\5 
00650 
1 0 1 1NY(2,3)016 
1023 
056 


Expansion along other coor- 
dinates than the last can be 
specified; see coordinates. 
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T (N) 


ENCODE 

Mixed, dyadic, numeric/numeric 
(АтВ) represents the right 
argument in a form defined 
by the left argument. For 
example, to express 25 
inches as feet and inches, 
write: 

3 12725 

21 


If there were more than three 
feet (7 one yard, the only 
reason for putting a three on 
the left) in the right hand 
argument that information 
would have been lost: 

3 12738 
92 

2 3 12738 
102 


For arguments of higher 
dimension than vectors the 
result is an array in which 
coordinates are encodings of 
components oí B according to 
components of A. The dimen- 
sion of the result is always 
the sum of the dimensions of 
the arguments. 
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1 (B) 


DECODE 
Mixed, dyadic, numeric/numeric 
This is effectively the inverse 
operator to encode: 
3 1212 1 
25 
1 3 1211 0 2 
38 


Of course, decode cannot 
restore information which 
might have been lost by 
encode: 

3 121(3 12738) 
2 


The arguments are conform- 
able if one is a scalar or if the 
last coordinate (number of 
columns) on the left is equal 
to the first coordinate on 


the right. 
? (Q) 
5 (H,M) 
RANDOM GRADE UP 
Mixed, dyadic, integer Mixed, monadic, numeric 

(А?В) і а vector of А ele- Gives the order іп which the 

ments chosen at random elements of the argument 

from the integers (1B); A should be taken to put them 

must be less than or equal in ascending order: 

to B. 44 571.2. 1 

426 35412 
2513 
u2u 
1432 Y (G.M) 
GRADE DOWN 
Mixed, monadic, numeric 

Gives the order in which 
the elements of the argu- 
ment should be taken to 
put them in descending 


order: 
$4 5121 
21534 
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€ GE) 


MEMBERSHIP 

Mixed, dyadic, any/any 
The size of (AcB) is the 
same as that of A: an 
element has value 1 if the 
corresponding element of 
A appears someplace in 
В; otherwise, it has value 0, 


Е (1,+) B (5,5) 
MATRIX DIVISION MATRIX INVERSE 
Mixed, dyadic, numeric/numeric Mixed, monadic, numeric 


The monadic form performs the mathematical operation 
of inverting a matrix; the dyadic form solves systems of 
linear equations defined by the arguments. Detailed dis- 
cussion is somewhat outside the scope of this book. 


I (B,N) 


1-BEAM 
The l-beam, as an operator which deals with system functions, 
is the most likely to be completely different on different 
systems: some systems do not even һауе the I-beam, but do 
have other ways of accomplishing the same functions. You 
should treat the list here with skepticism: find out what your 
system uses for similar system commands. Just for the sake of 
pointing out the variety of the I-beam, we describe two of the 
dyadic I-beams which have been made available to users on 
certain systems. 


Monadic: 
119 The amount of time the keyboard has been unlocked 

during the current session (60ths of a second). 

20 Time of day (60ths of a second). 

21 CPU time since sign on (60ths of a second). 

22 Remaining unused workspace (in bytes: a byte is 
the amount of room taken by a character; integers 
take up four bytes, logical numbers (0,1) take up 
one-eighth byte and other numbers take up eight 
bytes). 

23 Number of users currently signed on. 

24 Amount of time since you signed on (60ths of a second). 

25 Тһе date. 


26 


27 


28 
29 


SIN 
1urC 


ғомыб 
=== 
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The number of the program line now being run (if there 
is a program running). 

The vector of the line numbers of all the pending func- 
tions. 

A code denoting the type of terminal you are using. 
Your sign-on number. 


Causes a time delay of N 300ths of a second. 

Causes the character vector C to be printed. (1) This will 
cause C to be printed even if it is longer than the WIDTH, 
a useful feature when you want to print lines with many 
backspacings and overprintings; (2) After the line is 
printed, the carriage does not return and the 14 I-beam 
returns as a value the empty vector. 

Sets ORIGIN to N. 

Sets seed to N. 

Sets DIGITS to N. 

Sets WIDTH to N. 

Sets fuzz to N. 
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Appendix Four 


Utility Functions 


Utility Functions 


This appendix contains the three utility functions, IF, ERROR and 
WHEN. If they are not already available on your system you should en- 
ter them into your workspace. 


[1] 
[21 
[3] 


[1] 
12] 
[31 
C4] 


V 


Z-LABEL IF CONDITION 

'IPF:CONDITION RANK! ERROR 1#p,CONDITION 
"ІР:ГАВЕГ RANK' ERROR 1zp,LABEL 
'IF:DOMAIN! ERROR~CONDITIONe 0 1 
Z-CONDITION/LABEL 


TEXT ERROR CONDITION 
-(12v/,CONDITIONXCONDITION-1)/0 
TEXT;'  ERROR' 

= 


Z-LABEL WHEN CONDITION 

'WEEN:CONDITION RANK' ERROR 12p,CONDITION 
'WHEN:LABEL RANK' ERROR 1=р,ГАВЕГ 
'WHEN:DOMAIN' ERROR~CONDITIONe 0 1 
Z-CONDITION/LABEL 
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Index 


Note: Page numbers in the left-hand column refer to text pages. Page 
numbers in the right-hand column refer to pages with figures. 


246 


Active workspace 

Algorithm 

APL/360 Reference Manual 
Argument of an operator 
Argument of a program 
Arrays 

Arrays, changing a row or column 
Arrays, describing 

Arrays, indexing in 

Arrays, number of elements in 
Arrays, size of 

Artificial intelligence 
Assemblies 

Assignment 


Bill of materials 
Bit string 


123 
39 


87,41 
45 


29 


247 


319 


320 


101,154 
112 

56 

172 


258 
178 

106 

278 
102,234 
198, 248 
156 

40 

62 

6 

234 

162 


64 
104, 140 
62 


Blank character 


Bottom-up program development 


Branch to iota zero 
Branch to line zero 
Bubble sort. 


Call a program 
Ceiling 

Character 

Character, detecting 
Characteristic 
CLEAR 

Clear workspace 
Columns of an array 
Comment 

Comment block 
Composite operators 
Compress 
Concatenation 
Concatenation of arrays 
Conformable 
Control structures 
Conway, R. 

COPY 

Correcting a program 
Correcting a typing error 
CPU time 


Data structure 
Debugging 

del 

DEPTH ERROR 
DESCRIBE functions 
Diagonal 

DIGITS 

Dimension 

Division 

DO block 
Documentation 

DO loop 

DOMAIN ERROR 
Domain of an operator 
Drop 

Dyadic operator 


137 
139 
167 
219 


181 
207 


107 
13 


83, 85, 107 


85 
203 


159 


63 
7,163 


165 
65,227 


141 


32 

40 
218 
114 
66 
156 
128 
84, 86 
248 
28 


70 
102,155 
146 
158,228 


276 
53 


156 
102 
158 

8 

138 
80,148 
170 

78 

32 

36 

32 

92, 252 


188 


Element 

Elements of a vector 
Empty vector 
Encode 

Entering a program 
Equals 

ERASE 

ERROR utility program 
Expand 

Explode 
Expressions 


Floor 

FNS 

Function programs 
Fuzz 


Global variable 
Grade down 
Grade up 
Greater than 
Gries, D. 
GROUP 

GRP 

GRPS 


Hierarchy chart 
HOLD 


I-beams 

I-beam 22 

6 I-beam 

IF-then block 

IF utility function 

Index 

INDEX ERROR 

Index generator 

Indexing 

Indexing a vector with a vector 
Indices 

Inner product 

Input. See Quad, Quote-quad 
Interactive programs 


Index 321 


141 


45,79 
219 


67 


131 
83,87 


87 
71 


147 


91 
91 
67 


159 

9,187 

139, 143 
81, 149, 163 


79 
33 
37 


93, 95, 253 
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Index 


284 


176, 280 


72 


66 

101 
100 
136 
106 


100 
50 
126 
52 
218 
64,66 
82 
164 
164 


206 
282 


76 
148 
62 
196 
88 


78,156 
96, 208 


104 


Iota. See Index (dyadic), Index generator 
(monadic), Empty vector (iota zero) 


Kernighan, В. 
Keyboard 
Knuth, D. 


Label. See Line label 
Lamp. See Somment 
LENGTH ERROR 
Length of a vector. See Size 
Less than 

LIB 

Libraries 

Line label 

Line zero 

Link. See Seed 

LOAD 

Local mode 

Local variable 

Lock 

Logarithm 

Logica! operator 
Logical variable 

Loop 

Loop control statement 


Mantissa 

Marcus, R. 

Minus sign. See Unary minus sign 
Mixed operator 

Modulus 

Monadic operator 

Monte Carlo technique 


Name. See Variable 
Number, detecting 


ORIGIN 
Outer Product 


PCOPY 


55 


73, 109 


67 


137 


127 


221 
67 


165 


149 


131 


97 


Pending programs. See Suspended programs 


44 
284 
282 
114 
6 
284 


100, 242 


116 

108 

61 

130, 252 
132 


278 

72 
112,114,118 
64 


90 

30, 118, 138 
190 

36 

256, 283 


Planes of an array 
Plauger, P. J. 
PL/I, PL/C 


Index 


Printing characters and numbers together 115 


Process block 
Programming style 
Program with arguments 
Public libraries 


Quad input 
Quad output 


Quote marks in a character string 


Quote-quad input 


Quote-quad input, escaping from 


Rabbits 

RANK ERROR 
Ravel 

Reciprocal 
Recursion 
Recursive program 
Reduction 


Reduction applied to arrays 


Relational operator 
Remote mode 
Reverse 
Right-to-left rule 
Roll 

Rows of an array 
Rule-of-25 


SAVE 

Scalars 

Scientific notation 
Seed 

Shape. See Size 
Signing off 

Sign-on error messages 
Size 

Size of an array 

Size of a vector 
Sparse data structure 
State indicator 


123, 125, 129 


117 
107 


181 


73 
113, 115 
63,65 


275 
75,107 
199 

67 


91 
81 
191 


207 


51 
115 


183,227 


323 


324 Index 


182 Stop command 183 
String. See Vector 

6 Structure chart 

0,283 Structured programming 

230 Stub for a program 
Subscripts. See Indices 

108,184 Suspended program 185 
Symbols, chart of 55 

61 SYNTAX ERROR 

268,270 Таке 168, 269 

172 TIMER program 173 

230 Top-down program development 

180 Trace command 181 

218 Translating numbers to characters 219 

148 Translating numeric characters to numbers 149 

200 Transpose 

30 Unary minus sign 31 

28 Variables 

102, 155 VARS 

32 Vector 35 

v, 179, 282 Weinberg, G. M. 

164 WHEN utility function 165, 167 

156 WIDTH 

101 WS FULL 

104 WSID 

101 WS NOT FOUND 
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“,.. our approach is to present the Winthrop Publishers, Inc. 


fundamentals of structured programming in 17 Dunster Street 
APL. Students may go on from here to Cambridge, Massachusetts 
learn to write faster programs, or more 02138 


compact programs, or more aesthetic 
programs; this, we hope, is where they learn 
to write working programs." 

From the Preface 
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4444 
4444.4 
ДААА 4 
ДАДА 4 
A444 4 
A444 а 
AA44.4 


